--- a/Method.st	Sun Aug 13 22:48:41 1995 +0200
+++ b/Method.st	Tue Aug 15 20:55:40 1995 +0200
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Method.st,v 1.42 1995-08-11 03:01:55 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Method.st,v 1.43 1995-08-15 18:54:38 claus Exp $
 '!
 
 !Method class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Method.st,v 1.42 1995-08-11 03:01:55 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Method.st,v 1.43 1995-08-15 18:54:38 claus Exp $
 "
 !
 
@@ -874,18 +874,22 @@
     |m|
 
     m := Method compiledMethodAt:#invalidCodeObject.
-    (self code notNil and:[self code = m code]) ifTrue:[^ true].
-    (byteCode notNil and:[byteCode == m byteCode]) ifTrue:[^ true].
+    self ~~ m ifTrue:[
+	(self code notNil and:[self code = m code]) ifTrue:[^ true].
+	(byteCode notNil and:[byteCode == m byteCode]) ifTrue:[^ true].
+    ].
 
     m := Method compiledMethodAt:#uncompiledCodeObject.
-    (self code notNil and:[self code = m code]) ifTrue:[^ true].
-    (byteCode notNil and:[byteCode == m byteCode]) ifTrue:[^ true].
-
+    self ~~ m ifTrue:[
+	(self code notNil and:[self code = m code]) ifTrue:[^ true].
+	(byteCode notNil and:[byteCode == m byteCode]) ifTrue:[^ true].
+    ].
     m := Metaclass compiledMethodAt:#invalidCodeObject.
-    (self code notNil and:[self code = m code]) ifTrue:[^ true].
-    (byteCode notNil and:[byteCode == m byteCode]) ifTrue:[^ true].
+    self ~~ m ifTrue:[
+	(self code notNil and:[self code = m code]) ifTrue:[^ true].
+	(byteCode notNil and:[byteCode == m byteCode]) ifTrue:[^ true].
+    ].
     ^ false
-
 ! !
 
 !Method methodsFor:'error handling'!