--- a/LazyMethod.st	Mon Oct 23 17:58:15 1995 +0100
+++ b/LazyMethod.st	Tue Oct 24 16:55:13 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/LazyMethod.st,v 1.13 1995-08-11 16:03:08 claus Exp $
+$Header: /cvs/stx/stx/libcomp/LazyMethod.st,v 1.14 1995-10-24 15:54:57 cg Exp $
 '!
 
 !LazyMethod class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/LazyMethod.st,v 1.13 1995-08-11 16:03:08 claus Exp $
+$Header: /cvs/stx/stx/libcomp/LazyMethod.st,v 1.14 1995-10-24 15:54:57 cg Exp $
 "
 !
 
@@ -106,11 +106,11 @@
     "
     [
 	Access critical:[
-	    m := self asByteCodeMethod.
+	    m := self asExecutableMethod.
 	].
     ] valueUninterruptably.
 
-    (m isNil or:[(byteCode := m byteCode) isNil]) ifTrue:[
+    (m isNil or:[(byteCode := m byteCode) isNil and:[m code isNil]]) ifTrue:[
 	"
 	 compilation failed
 	"
@@ -118,8 +118,12 @@
     ].
     literals := m literals.
     flags := m flags.
+    self code:(m code).
     self changeClassToThatOf:m.
     ^ self
+
+    "Created: 24.10.1995 / 14:02:50 / cg"
+    "Modified: 24.10.1995 / 15:35:50 / cg"
 ! !
 
 !LazyMethod methodsFor:'error handling'!