--- a/Method.st	Sun Jan 05 00:42:53 1997 +0100
+++ b/Method.st	Sun Jan 05 00:53:51 1997 +0100
@@ -1058,41 +1058,46 @@
 
     |m code srcPos|
 
+    "/ need a byteCode version of myself ...
+    m := self.
+    code := byteCode.
+    code isNil ifTrue:[
+        m := self asByteCodeMethod.
+        code := m byteCode.
+        code isNil ifTrue:[
+            m := self
+        ]
+    ].
+
     ObjectMemory snapshotID storeBinaryOn:stream manager:manager.
     category storeBinaryOn:stream manager:manager.
-    byteCode isNil ifTrue:[
-	m := self asByteCodeMethod.
-	code notNil ifTrue:[
-	    code := m byteCode
-	] ifFalse:[
-	    m := self
-	]
-    ] ifFalse:[
-	m := self.
-	code := byteCode
-    ].
 
     m flags storeBinaryOn:stream manager:manager.
     m literals storeBinaryOn:stream manager:manager.
     manager sourceMode == #discard ifTrue:[
-	nil storeBinaryOn:stream manager:manager. "/ sourceFileName
-	nil storeBinaryOn:stream manager:manager. "/ sourcePosition
-	nil storeBinaryOn:stream manager:manager. "/ source
+        "/ add nil, nil, nil
+        nil storeBinaryOn:stream manager:manager. "/ sourceFileName
+        nil storeBinaryOn:stream manager:manager. "/ sourcePosition
+        nil storeBinaryOn:stream manager:manager. "/ source
     ] ifFalse:[
-	m sourceFilename storeBinaryOn:stream manager:manager.
-	manager sourceMode == #reference ifTrue:[
-	    srcPos := m sourcePosition.
-	] ifFalse:[
-	    srcPos := nil
-	].
-	srcPos storeBinaryOn:stream manager:manager.
-	srcPos isNil ifTrue:[
-	    m source storeBinaryOn:stream manager:manager.
-	].
+        "/ add sourceFilename, srcPos
+        "/ or  nil, nil, source
+        m sourceFilename storeBinaryOn:stream manager:manager.
+        manager sourceMode == #reference ifTrue:[
+            srcPos := m sourcePosition.
+        ] ifFalse:[
+            srcPos := nil
+        ].
+        srcPos storeBinaryOn:stream manager:manager.
+        srcPos isNil ifTrue:[
+            m source storeBinaryOn:stream manager:manager.
+        ].
     ].
+
     code storeBinaryOn:stream manager:manager.
 
     "Created: 16.1.1996 / 14:41:45 / cg"
+    "Modified: 5.1.1997 / 00:39:29 / cg"
 ! !
 
 !Method methodsFor:'copying'!
@@ -2693,6 +2698,6 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.114 1997-01-02 14:28:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.115 1997-01-04 23:53:51 cg Exp $'
 ! !
 Method initialize!