--- a/WMethod.st	Wed Jan 29 19:32:20 1997 +0100
+++ b/WMethod.st	Tue Feb 11 20:58:21 1997 +0100
@@ -98,7 +98,12 @@
 source
     "return the wrapped methods source"
 
-    ^ self originalMethod source
+    |m|
+
+    (m := self originalMethod) notNil ifTrue:[
+        ^ m source
+    ].
+    ^ nil
 ! !
 
 !WrappedMethod methodsFor:'queries'!
@@ -113,5 +118,5 @@
 !WrappedMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/WMethod.st,v 1.13 1996-11-04 22:44:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/Attic/WMethod.st,v 1.14 1997-02-11 19:58:21 ca Exp $'
 ! !

--- a/WrappedMethod.st	Wed Jan 29 19:32:20 1997 +0100
+++ b/WrappedMethod.st	Tue Feb 11 20:58:21 1997 +0100
@@ -98,7 +98,12 @@
 source
     "return the wrapped methods source"
 
-    ^ self originalMethod source
+    |m|
+
+    (m := self originalMethod) notNil ifTrue:[
+        ^ m source
+    ].
+    ^ nil
 ! !
 
 !WrappedMethod methodsFor:'queries'!
@@ -113,5 +118,5 @@
 !WrappedMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.13 1996-11-04 22:44:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/WrappedMethod.st,v 1.14 1997-02-11 19:58:21 ca Exp $'
 ! !