--- a/Parser.st	Tue Oct 23 21:11:08 2001 +0200
+++ b/Parser.st	Mon Nov 05 16:37:24 2001 +0100
@@ -1908,7 +1908,7 @@
         selector:selector
         arguments:methodArgs
         locals:methodVars
-        statements:tree
+        statements:tree asCollectionOfStatements
 
     "Created: 17.10.1997 / 12:35:01 / cg"
     "Modified: 17.10.1997 / 12:40:34 / cg"
@@ -5540,6 +5540,11 @@
         self nextToken. "/ eat the assign when doing highlighting only
     ].
     ^ true
+
+
+
+
+
 !
 
 plausibilityCheck:aNode
@@ -6009,6 +6014,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.310 2001-10-23 19:11:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.311 2001-11-05 15:37:24 james Exp $'
 ! !
 Parser initialize!