--- a/LazyMethod.st	Fri Oct 28 04:09:41 1994 +0100
+++ b/LazyMethod.st	Fri Oct 28 04:11:50 1994 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1994 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/LazyMethod.st,v 1.5 1994-10-10 00:57:43 claus Exp $
+$Header: /cvs/stx/stx/libcomp/LazyMethod.st,v 1.6 1994-10-28 03:10:41 claus Exp $
 '!
 
 !LazyMethod class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/LazyMethod.st,v 1.5 1994-10-10 00:57:43 claus Exp $
+$Header: /cvs/stx/stx/libcomp/LazyMethod.st,v 1.6 1994-10-28 03:10:41 claus Exp $
 "
 !
 
@@ -97,7 +97,7 @@
      Hard-compile the method, install its bytecode in the receiver,
      and recall it."
 
-    |code m sender spec class selector|
+    |m sender spec class selector|
 
     "compile the method"
 
@@ -117,10 +117,12 @@
     ] valueUninterruptably.
 
     (m isNil or:[(byteCode := m byteCode) isNil]) ifTrue:[
+	"
+	 compilation failed
+	"
+        selector := thisContext sender selector.
 
 	class := self containingClass.
-	selector := thisContext sender selector.
-
 	class notNil ifTrue:[
 	    spec := class name , '>>' , selector
 	] ifFalse:[