*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Wed, 07 Jul 1999 19:41:37 +0200
changeset 892 84525a811427
parent 891 5baa1ea32167
child 893 9fcb0294a51e
*** empty log message ***
LazyMethod.st
--- a/LazyMethod.st	Wed Jul 07 19:41:07 1999 +0200
+++ b/LazyMethod.st	Wed Jul 07 19:41:37 1999 +0200
@@ -172,13 +172,16 @@
 resources
     "cannot ask a lazyMethod for resources ..."
 
-    ^ self asExecutableMethod resources
+    |m|
+
+    (m := self asExecutableMethod) notNil ifTrue:[^ m resources].
+    ^ nil
 
 ! !
 
 !LazyMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/LazyMethod.st,v 1.26 1999-07-07 17:41:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/LazyMethod.st,v 1.27 1999-07-07 17:41:37 cg Exp $'
 ! !
 LazyMethod initialize!