Anyway, the closest useful method I have found by iterating all ASTs in standard 3.0 image :

and this is the winner:

RBMessageNode>>replaceSourceWithMessageNode: aNode

������ | isBinaryToKeyword |
������ self numArgs = aNode numArgs ifFalse: [^super replaceSourceWith: aNode].
������ self arguments with: aNode arguments
������ ������ do: [:old :new | (self mappingFor: old) = new ifFalse: [^super replaceSourceWith: aNode]].
������ (self mappingFor: self receiver) = aNode receiver
������ ������ ifFalse:
������ ������ ������ [(self receiver isVariable and: [aNode receiver isVariable])
������ ������ ������ ������ ifFalse:
������ ������ ������ ������ ������ [^super replaceSourceWith: aNode].
������ ������ ������ self addReplacement:
������ ������ ������ ������ (RBStringReplacement
������ ������ ������ ������ ������ replaceFrom: self receiver start
������ ������ ������ ������ ������ to: self receiver stop
������ ������ ������ ������ ������ with: aNode receiver name)].
������ (isBinaryToKeyword := self isBinary and: [aNode isKeyword])
������ ������ ifTrue:
������ ������ ������ [(self hasParentheses not and: [self parent precedence <= aNode precedence])
������ ������ ������ ������ ifTrue:
������ ������ ������ ������ ������ [self
������ ������ ������ ������ ������ ������ addReplacement: (RBStringReplacement
������ ������ ������ ������ ������ ������ ������ ������ ������ replaceFrom: self start
������ ������ ������ ������ ������ ������ ������ ������ ������ to: self start - 1
������ ������ ������ ������ ������ ������ ������ ������ ������ with: '(');
������ ������ ������ ������ ������ ������ addReplacement: (RBStringReplacement
������ ������ ������ ������ ������ ������ ������ ������ ������ replaceFrom: self stop + 1
������ ������ ������ ������ ������ ������ ������ ������ ������ to: self stop
������ ������ ������ ������ ������ ������ ������ ������ ������ with: ')')]].
������ self selectorParts with: aNode selectorParts
������ ������ do:
������ ������ ������ [:old :new |
������ ������ ������ old value ~= new value
������ ������ ������ ������ ifTrue:
������ ������ ������ ������ ������ [self addReplacement: (RBStringReplacement
������ ������ ������ ������ ������ ������ ������ ������ replaceFrom: old start
������ ������ ������ ������ ������ ������ ������ ������ to: old stop
������ ������ ������ ������ ������ ������ ������ ������ with: ((isBinaryToKeyword
������ ������ ������ ������ ������ ������ ������ ������ ������ ������ and: [(self source at: old start - 1) isSeparator not])
������ ������ ������ ������ ������ ������ ������ ������ ������ ������ ������ ifTrue: [' ' , new value]
������ ������ ������ ������ ������ ������ ������ ������ ������ ������ ������ ifFalse: [new value]))]]

Cheers,

Hern��n