--- a/VariableNode.st	Thu Jun 19 16:56:42 1997 +0200
+++ b/VariableNode.st	Thu Jun 19 16:58:23 1997 +0200
@@ -415,6 +415,16 @@
     "Modified: 29.2.1996 / 23:54:38 / cg"
 ! !
 
+!VariableNode methodsFor:'enumeration'!
+
+nodeDo:anEnumerator
+    "helper for parse tree walking"
+
+    ^ anEnumerator doVariable:self name:name
+
+    "Created: 19.6.1997 / 16:41:35 / cg"
+! !
+
 !VariableNode methodsFor:'evaluating'!
 
 evaluate
@@ -559,5 +569,5 @@
 !VariableNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.26 1997-06-18 10:07:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.27 1997-06-19 14:57:23 cg Exp $'
 ! !