--- a/CompiledCode.st	Thu Jul 04 15:26:01 1996 +0200
+++ b/CompiledCode.st	Thu Jul 04 15:26:45 1996 +0200
@@ -10,8 +10,6 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:2.10.9 on 25-jun-1996 at 22:25:18'                   !
-
 ExecutableFunction variableSubclass:#CompiledCode
 	instanceVariableNames:'flags byteCode'
 	classVariableNames:'NoByteCodeSignal InvalidByteCodeSignal InvalidInstructionSignal
@@ -178,7 +176,7 @@
 changeLiteral:aLiteral to:newLiteral
     "change aLiteral to newLiteral"
 
-    |lits|
+    |lits nLits "{ Class: SmallInteger }" |
 
     self size == 1 ifTrue:[
         lits := self at:1.
@@ -186,7 +184,8 @@
         lits := self.
     ].
 
-    1 to:(lits size) do:[:i|
+    nLits := lits size.
+    1 to:nLits do:[:i|
         (lits at:i) == aLiteral ifTrue:[
             lits at:i put:newLiteral.
             ^ true.
@@ -196,6 +195,7 @@
 
     "Created: 24.6.1996 / 15:08:11 / stefan"
     "Modified: 24.6.1996 / 17:07:56 / stefan"
+    "Modified: 4.7.1996 / 11:12:39 / cg"
 !
 
 do:aBlock
@@ -536,6 +536,6 @@
 !CompiledCode  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.31 1996-06-28 15:32:22 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.32 1996-07-04 13:26:45 cg Exp $'
 ! !
 CompiledCode initialize!