--- a/ParseNode.st	Wed Aug 21 18:37:34 2013 +0200
+++ b/ParseNode.st	Wed Aug 21 18:46:24 2013 +0200
@@ -346,11 +346,23 @@
     ^ self
 !
 
+messageSelectors
+    "return a collection of message seelctors"
+
+    |setOfSymbols|
+
+    setOfSymbols := Set new.
+    self messagesDo:[:each | setOfSymbols add:each ].
+    ^ setOfSymbols
+!
+
 messages
+    "return a collection of messageNodes"
+
     |setOfMessages|
 
     setOfMessages := Set new.
-    self messagesDo:[:each | setOfMessages add:each ].
+    self messageNodesDo:[:each | setOfMessages add:each ].
     ^ setOfMessages
 !
 
@@ -677,7 +689,11 @@
 
 !ParseNode class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libcomp/ParseNode.st,v 1.71 2013-08-21 16:46:24 cg Exp $'
+!
+
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/ParseNode.st,v 1.70 2013-08-21 16:37:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ParseNode.st,v 1.71 2013-08-21 16:46:24 cg Exp $'
 ! !