--- a/WrappedMethod.st	Wed Jul 26 18:10:09 2000 +0200
+++ b/WrappedMethod.st	Sat Aug 05 18:36:40 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libbasic3' }"
+
 Method variableSubclass:#WrappedMethod
 	instanceVariableNames:''
 	classVariableNames:''
@@ -172,6 +174,22 @@
     ^ true
 !
 
+sentMessages
+    "return a collection of message selectors sent by this method"
+
+    ^ self originalMethod sentMessages 
+
+
+!
+
+sentSuperMessages
+    "return a collection of message selectors sent by this method"
+
+    ^ self originalMethod sentSuperMessages 
+
+
+!
+
 signature
     ^ self originalMethod signature
 
@@ -187,5 +205,5 @@
 !WrappedMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.20 1999-10-20 23:44:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.21 2000-08-05 16:36:40 cg Exp $'
 ! !