--- a/MessageNode.st	Thu Mar 16 15:24:47 2006 +0100
+++ b/MessageNode.st	Thu Mar 16 15:24:51 2006 +0100
@@ -2846,6 +2846,7 @@
     ].
     selectorParts := selector asCollectionOfSubstringsSeparatedBy:$:.
     receiver printOn:aStream indent:i parenthized:(receiver precedence <= self precedence).
+self halt.
     argArray with:selectorParts
         do:[:arg :selPart | 
             aStream
@@ -2927,5 +2928,5 @@
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.153 2006-03-13 15:53:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.154 2006-03-16 14:24:51 cg Exp $'
 ! !