--- a/MessageNode.st	Mon Aug 07 13:01:07 2006 +0200
+++ b/MessageNode.st	Mon Aug 07 13:02:24 2006 +0200
@@ -13,10 +13,10 @@
 "{ Package: 'stx:libcomp' }"
 
 ParseNode subclass:#MessageNode
-        instanceVariableNames:'receiver selector argArray lineNr selectorPosition'
-        classVariableNames:''
-        poolDictionaries:''
-        category:'System-Compiler-Support'
+	instanceVariableNames:'receiver selector argArray lineNr selectorPosition'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'System-Compiler-Support'
 !
 
 !MessageNode class methodsFor:'documentation'!
@@ -271,6 +271,7 @@
     "Modified: / 15.5.1998 / 15:32:05 / cg"
 ! !
 
+
 !MessageNode methodsFor:'accessing'!
 
 arg1
@@ -2846,17 +2847,18 @@
     ].
     selectorParts := selector asCollectionOfSubstringsSeparatedBy:$:.
     receiver printOn:aStream indent:i parenthized:(receiver precedence <= self precedence).
-
-    argArray with:selectorParts
-        do:[:arg :selPart | 
-            aStream
-                cr;
-                spaces:i + 4;
-                nextPutAll:(selPart , ':').
-            arg printOn:aStream indent:i + 4 parenthized:(arg precedence <= self precedence).
-        ]
-
-    "Modified: / 20-04-2005 / 14:29:16 / cg"
+    argArray notNil ifTrue:[
+        argArray with:selectorParts
+            do:[:arg :selPart | 
+                aStream
+                    cr;
+                    spaces:i + 4;
+                    nextPutAll:(selPart , ':').
+                arg printOn:aStream indent:i + 4 parenthized:(arg precedence <= self precedence).
+            ]
+    ].
+
+    "Modified: / 06-08-2006 / 12:38:44 / cg"
 !
 
 printWhileOn:aStream indent:i
@@ -2872,6 +2874,7 @@
     arg printOn:aStream indent:i parenthized:(arg precedence <= self precedence).
 ! !
 
+
 !MessageNode methodsFor:'queries'!
 
 argumentCount
@@ -2925,8 +2928,9 @@
     "Modified: / 17.7.1998 / 02:09:05 / cg"
 ! !
 
+
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.155 2006-03-16 14:39:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.156 2006-08-07 11:02:24 cg Exp $'
 ! !