--- a/GIFReader.st	Sat Nov 15 17:34:26 2014 +0100
+++ b/GIFReader.st	Sat Nov 15 17:36:59 2014 +0100
@@ -903,7 +903,7 @@
                             freeCode := freeCode + 1]
                         ifFalse:[
                             self writeCodeAndCheckCodeSize: clearCode.
-                            1 to: tSize do: [:i | suffixTable at: i put: -1].
+                            suffixTable from:1 to:tSize put:-1.
                             self setParameters: initCodeSize]]]].
     prefixTable := suffixTable := nil.
     self writeCodeAndCheckCodeSize: ent.
@@ -1084,11 +1084,11 @@
 !GIFReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.105 2014-08-01 06:06:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.106 2014-11-15 16:36:59 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.105 2014-08-01 06:06:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.106 2014-11-15 16:36:59 cg Exp $'
 ! !