--- 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 $'
! !