--- a/Method.st	Sun Sep 03 17:43:26 2000 +0200
+++ b/Method.st	Sun Sep 03 18:48:42 2000 +0200
@@ -2070,6 +2070,13 @@
     "Created: 19.6.1997 / 16:26:13 / cg"
 !
 
+messagesDo:aBlock
+    "evaluate aBlock for each message-selector sent by this method.
+     Uses Parser to parse methods source and extract the names."
+
+    ^ self messagesSent do:aBlock
+!
+
 messagesSent
     "return a collection with the message selectors sent to by the receiver.
      Uses Parser to parse methods source and extract the names.
@@ -2751,6 +2758,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.205 2000-09-03 15:14:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.206 2000-09-03 16:48:42 cg Exp $'
 ! !
 Method initialize!