--- a/MessageNode.st	Mon Sep 02 17:05:55 2013 +0200
+++ b/MessageNode.st	Wed Sep 04 00:35:31 2013 +0200
@@ -1105,7 +1105,7 @@
 !
 
 messagesDo:aBlock
-    "evaluate aBlock for each message-selector here and in subnodes"
+    "evaluate aBlock for each message-node here and in subnodes"
 
     aBlock value:self.
     receiver messagesDo:aBlock.
@@ -1124,6 +1124,15 @@
 
     "Created: 19.6.1997 / 16:46:39 / cg"
     "Modified: 19.6.1997 / 17:08:28 / cg"
+!
+
+variableNodesDo:aBlock
+    "evaluate aBlock for each variable-node here and in subnodes"
+
+    receiver variableNodesDo:aBlock.
+    argArray notNil ifTrue:[
+        argArray do:[:arg | arg variableNodesDo:aBlock].
+    ]
 ! !
 
 !MessageNode methodsFor:'evaluation'!
@@ -3355,11 +3364,11 @@
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.202 2013-08-31 11:30:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.203 2013-09-03 22:35:31 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.202 2013-08-31 11:30:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.203 2013-09-03 22:35:31 cg Exp $'
 !
 
 version_SVN