--- a/MessageNode.st	Thu Jun 19 18:38:52 1997 +0200
+++ b/MessageNode.st	Fri Jun 20 12:06:27 1997 +0200
@@ -226,6 +226,13 @@
     ^ argArray
 !
 
+arguments
+    ^ argArray ? #()
+
+    "Created: 19.6.1997 / 17:31:14 / cg"
+    "Modified: 19.6.1997 / 17:32:25 / cg"
+!
+
 lineNumber
      ^ lineNr
 !
@@ -1680,9 +1687,13 @@
 nodeDo:anEnumerator
     "helper for parse tree walking"
 
-    ^ anEnumerator doMessage:self receiver:receiver selector:selector arguments:argArray
+    |args|
+
+    args := argArray ? #().
+    ^ anEnumerator doMessage:self receiver:receiver selector:selector arguments:args
 
     "Created: 19.6.1997 / 16:46:39 / cg"
+    "Modified: 19.6.1997 / 17:08:28 / cg"
 ! !
 
 !MessageNode methodsFor:'evaluating'!
@@ -1882,5 +1893,5 @@
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.68 1997-06-19 14:58:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.69 1997-06-20 10:06:27 cg Exp $'
 ! !