--- a/MessageNode.st	Wed Aug 21 18:57:50 2013 +0200
+++ b/MessageNode.st	Wed Aug 21 18:57:52 2013 +0200
@@ -1077,13 +1077,13 @@
 
 !MessageNode methodsFor:'enumerating'!
 
-messageNodesDo:aBlock
-    "evaluate aBlock for each message-node here and in subnodes"
-
-    aBlock value:self.
-    receiver messageNodesDo:aBlock.
+messageSelectorsDo:aBlock
+    "evaluate aBlock for each message-selector here and in subnodes"
+
+    aBlock value:selector.
+    receiver messageSelectorsDo:aBlock.
     argArray notNil ifTrue:[
-        argArray do:[:arg | arg messageNodesDo:aBlock].
+        argArray do:[:arg | arg messageSelectorsDo:aBlock].
     ]
 !
 
@@ -3338,11 +3338,11 @@
 !MessageNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.199 2013-08-21 16:37:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.200 2013-08-21 16:57:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.199 2013-08-21 16:37:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.200 2013-08-21 16:57:52 cg Exp $'
 !
 
 version_SVN