--- a/ByteCodeCompiler.st	Mon Oct 21 16:01:10 1996 +0200
+++ b/ByteCodeCompiler.st	Mon Oct 21 16:02:34 1996 +0200
@@ -1264,6 +1264,12 @@
 
     newMethod := Method new:(litArray size).
     litArray notNil ifTrue:[
+        "/ fixup CheapBlocks method-field in literal array,
+        litArray do:[:aLiteral |
+            (aLiteral isMemberOf:CheapBlock) ifTrue:[
+                aLiteral setMethod:newMethod.
+            ]
+        ].
         newMethod literals:litArray
     ].
 
@@ -1278,8 +1284,8 @@
     ^ newMethod
 
     "Created: 18.5.1996 / 16:33:17 / cg"
-    "Modified: 18.5.1996 / 16:41:31 / cg"
     "Modified: 24.6.1996 / 12:32:50 / stefan"
+    "Modified: 21.10.1996 / 13:58:41 / cg"
 !
 
 genByteCodeFrom:symbolicCodeArray
@@ -2344,6 +2350,6 @@
 !ByteCodeCompiler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.94 1996-10-21 11:51:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.95 1996-10-21 14:02:34 cg Exp $'
 ! !
 ByteCodeCompiler initialize!