--- a/ByteArray.st	Tue Nov 12 15:44:05 1996 +0100
+++ b/ByteArray.st	Tue Nov 12 15:45:15 1996 +0100
@@ -1957,10 +1957,11 @@
      PS: I dont like it ;-)"
 
     |outStream 
-     index "{ Class:SmallInteger}"
-     stop  "{ Class:SmallInteger}"
-     n     "{ Class:SmallInteger}"
-     mod   "{ Class:SmallInteger}"|
+     index     "{ Class:SmallInteger}"
+     nextIndex "{ Class:SmallInteger}"
+     stop      "{ Class:SmallInteger}"
+     n         "{ Class:SmallInteger}"
+     mod       "{ Class:SmallInteger}"|
 
     outStream := WriteStream on:String new.
     index := 1. 
@@ -1969,8 +1970,9 @@
         "take 3 source bytes"
         n := (self at:index) bitShift:16.
         (index < stop) ifTrue:[
-            n := n bitOr:((self at:(index + 1)) bitShift:8).
-            (index + 1 < stop) ifTrue:[
+            nextIndex := index + 1.
+            n := n bitOr:((self at:nextIndex) bitShift:8).
+            (nextIndex < stop) ifTrue:[
                 n := n bitOr:(self at:(index + 2)).
             ].
         ].
@@ -1990,7 +1992,7 @@
     ].
     ^ outStream contents
 
-    "Modified: 12.11.1996 / 15:43:46 / cg"
+    "Modified: 12.11.1996 / 15:45:02 / cg"
 !
 
 displayString
@@ -2238,5 +2240,5 @@
 !ByteArray class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.73 1996-11-12 14:44:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.74 1996-11-12 14:45:15 cg Exp $'
 ! !