--- a/WrappedMethod.st	Wed Oct 20 09:45:34 2010 +0200
+++ b/WrappedMethod.st	Fri Oct 22 11:50:46 2010 +0200
@@ -118,6 +118,14 @@
     "Modified: / 23.1.1998 / 13:08:25 / stefan"
 !
 
+originalMethodIfWrapped
+    "return the method the receiver is wrapping"
+
+    ^ self originalMethod
+
+    "Created: / 22-10-2010 / 11:45:42 / cg"
+!
+
 package:aSymbol
     super package:aSymbol.
     self originalMethod package:aSymbol
@@ -248,9 +256,9 @@
 !WrappedMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.27 2009-10-06 14:59:42 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.28 2010-10-22 09:50:46 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.27 2009-10-06 14:59:42 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.28 2010-10-22 09:50:46 cg Exp $'
 ! !