--- a/Method.st	Sun Feb 04 20:19:58 1996 +0100
+++ b/Method.st	Mon Feb 05 01:47:11 1996 +0100
@@ -36,7 +36,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.71 1996-02-01 21:56:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.72 1996-02-05 00:47:11 cg Exp $'
 !
 
 documentation
@@ -1946,7 +1946,11 @@
     category storeBinaryOn:stream manager:manager.
     byteCode isNil ifTrue:[
 	m := self asByteCodeMethod.
-	code := m byteCode
+	code notNil ifTrue:[
+	    code := m byteCode
+	] ifFalse:[
+	    m := self
+	]
     ] ifFalse:[
 	m := self.
 	code := byteCode