--- a/GIFReader.st	Thu Apr 24 20:33:40 1997 +0200
+++ b/GIFReader.st	Thu Apr 24 21:20:58 1997 +0200
@@ -240,7 +240,7 @@
     index := 1.
     count := aStream nextByte.
     [count notNil and:[count ~~ 0]] whileTrue:[
-        aStream nextBytes:count into:compressedData startingAt:index.
+        aStream nextBytes:count into:compressedData startingAt:index blockSize:4096.
         index := index + count.
         count := aStream nextByte
     ].
@@ -331,7 +331,7 @@
     "
 
     "Modified: 5.7.1996 / 17:32:01 / stefan"
-    "Modified: 10.1.1997 / 15:40:58 / cg"
+    "Modified: 24.4.1997 / 21:13:06 / cg"
 !
 
 makeGreyscale
@@ -467,6 +467,6 @@
 !GIFReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.47 1997-04-10 22:55:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.48 1997-04-24 19:20:58 cg Exp $'
 ! !
 GIFReader initialize!