--- a/CascadeNd.st	Thu Jun 19 16:56:42 1997 +0200
+++ b/CascadeNd.st	Thu Jun 19 16:58:23 1997 +0200
@@ -56,6 +56,18 @@
     self codeSendOn:aStream inBlock:b valueNeeded:valueNeeded for:aCompiler
 ! !
 
+!CascadeNode methodsFor:'enumeration'!
+
+nodeDo:anEnumerator
+    "helper for parse tree walking"
+
+    self halt:'not yet compatible'.
+    ^ anEnumerator doCascade:self receiver:receiver messages:argArray
+
+    "Created: 19.6.1997 / 16:39:17 / cg"
+    "Modified: 19.6.1997 / 16:40:00 / cg"
+! !
+
 !CascadeNode methodsFor:'evaluating'!
 
 evaluate
@@ -141,5 +153,5 @@
 !CascadeNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/CascadeNd.st,v 1.15 1996-04-25 17:09:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/CascadeNd.st,v 1.16 1997-06-19 14:58:12 cg Exp $'
 ! !