--- a/LazyMethod.st	Wed Nov 04 21:59:05 1998 +0100
+++ b/LazyMethod.st	Sat Nov 14 18:44:03 1998 +0100
@@ -10,16 +10,14 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:2.10.9 on 25-jun-1996 at 14:32:52'                   !
-
-Method subclass:#LazyMethod
+Method variableSubclass:#LazyMethod
 	instanceVariableNames:''
 	classVariableNames:'Access CompilationFailedSignal'
 	poolDictionaries:''
 	category:'Kernel-Methods'
 !
 
-!LazyMethod  class methodsFor:'documentation'!
+!LazyMethod class methodsFor:'documentation'!
 
 copyright
 "
@@ -58,7 +56,7 @@
 "
 ! !
 
-!LazyMethod  class methodsFor:'initialization'!
+!LazyMethod class methodsFor:'initialization'!
 
 initialize
     CompilationFailedSignal isNil ifTrue:[
@@ -71,7 +69,7 @@
     ]
 ! !
 
-!LazyMethod  class methodsFor:'Signal constants'!
+!LazyMethod class methodsFor:'Signal constants'!
 
 compilationFailedSignal
     ^ CompilationFailedSignal
@@ -104,7 +102,9 @@
         ].
     ] valueUninterruptably.
 
-    (m isNil or:[(byteCode := m byteCode) isNil and:[m code isNil]]) ifTrue:[
+    (m isNil 
+    or:[(byteCode := m byteCode) isNil 
+         and:[m hasCode not]]) ifTrue:[
         "
          compilation failed
         "
@@ -116,9 +116,9 @@
     self changeClassToThatOf:m.
     ^ self
 
-    "Created: 24.10.1995 / 14:02:50 / cg"
-    "Modified: 24.10.1995 / 15:35:50 / cg"
-    "Modified: 24.6.1996 / 17:23:57 / stefan"
+    "Created: / 24.10.1995 / 14:02:50 / cg"
+    "Modified: / 24.6.1996 / 17:23:57 / stefan"
+    "Modified: / 13.11.1998 / 23:20:41 / cg"
 ! !
 
 !LazyMethod methodsFor:'error handling'!
@@ -185,9 +185,9 @@
     ^ true
 ! !
 
-!LazyMethod  class methodsFor:'documentation'!
+!LazyMethod class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/LazyMethod.st,v 1.22 1997-06-16 18:22:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/LazyMethod.st,v 1.23 1998-11-14 17:44:03 cg Exp $'
 ! !
 LazyMethod initialize!