--- a/WrappedMethod.st	Mon Oct 04 17:38:23 1999 +0200
+++ b/WrappedMethod.st	Thu Oct 21 01:44:30 1999 +0200
@@ -128,17 +128,6 @@
 
     "Modified: / 23.1.1998 / 13:21:26 / stefan"
     "Created: / 23.1.1998 / 15:26:26 / stefan"
-!
-
-source
-    "return the wrapped methods source"
-
-    |m|
-
-    (m := self originalMethod) notNil ifTrue:[
-        ^ m source
-    ].
-    ^ nil
 ! !
 
 !WrappedMethod methodsFor:'queries'!
@@ -198,5 +187,5 @@
 !WrappedMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.19 1999-01-29 15:38:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.20 1999-10-20 23:44:30 cg Exp $'
 ! !