--- a/WrappedMethod.st	Sun Sep 03 16:45:21 2000 +0200
+++ b/WrappedMethod.st	Sun Sep 03 17:14:11 2000 +0200
@@ -174,20 +174,22 @@
     ^ true
 !
 
-sentMessages
+messagesSent
     "return a collection of message selectors sent by this method"
 
-    ^ self originalMethod sentMessages 
-
-
+    ^ self originalMethod messagesSent 
 !
 
-sentSuperMessages
-    "return a collection of message selectors sent by this method"
+messagesSentToSelf
+    "return a collection of message selectors sent to self by this method"
 
-    ^ self originalMethod sentSuperMessages 
+    ^ self originalMethod messagesSentToSelf 
+!
 
+messagesSentToSuper
+    "return a collection of message selectors sent to super by this method"
 
+    ^ self originalMethod messagesSentToSuper 
 !
 
 signature
@@ -205,5 +207,5 @@
 !WrappedMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.21 2000-08-05 16:36:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.22 2000-09-03 15:14:11 cg Exp $'
 ! !