--- a/GIFReader.st	Sun Nov 02 18:09:15 1997 +0100
+++ b/GIFReader.st	Sun Nov 02 18:32:36 1997 +0100
@@ -853,7 +853,7 @@
 
     bitsPerPixel := image bitsPerPixel.
 
-    outStream nextPutAll: 'GIF87a' asByteArray.
+    outStream nextPutAll: 'GIF89a' asByteArray.
     self writeShort:width. "/ screen size
     self writeShort:height.    
     t1 := 128.
@@ -900,9 +900,8 @@
 "/        outStream nextPut:0; nextPut:0; nextPut:0
 "/    ].
 
-
-    "Created: 14.10.1997 / 17:41:28 / cg"
-    "Modified: 21.10.1997 / 04:52:18 / cg"
+    "Created: / 14.10.1997 / 17:41:28 / cg"
+    "Modified: / 31.10.1997 / 16:12:13 / cg"
 !
 
 writeMaskExtensionHeaderFor:image
@@ -922,6 +921,6 @@
 !GIFReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.62 1997-10-28 18:38:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.63 1997-11-02 17:32:36 cg Exp $'
 ! !
 GIFReader initialize!