--- a/MessageNode.st	Wed Jun 29 20:26:11 2011 +0200
+++ b/MessageNode.st	Thu Jun 30 18:07:55 2011 +0200
@@ -2894,7 +2894,7 @@
             ^ self printWhileOn:aStream indent:i
         ].
     ].
-    selectorParts := selector asCollectionOfSubstringsSeparatedBy:$:.
+    selectorParts := selector asSymbol keywords.
     receiver printOn:aStream indent:i parenthized:(receiver precedence <= self precedence).
     argArray notNil ifTrue:[
         argArray with:selectorParts
@@ -2907,7 +2907,7 @@
             ]
     ].
 
-    "Modified: / 06-08-2006 / 12:38:44 / cg"
+    "Modified: / 30-06-2011 / 17:48:56 / cg"
 !
 
 printWhileOn:aStream indent:i
@@ -3035,9 +3035,9 @@
 !MessageNode class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.179 2011-06-28 19:43:35 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.180 2011-06-30 16:07:55 cg Exp $'
 !
 
 version_SVN
-    ^ ' Id '
+    ^ '§ Id §'
 ! !