--- a/GIFReader.st	Wed Apr 01 19:14:16 1998 +0200
+++ b/GIFReader.st	Thu Apr 02 12:02:39 1998 +0200
@@ -318,7 +318,7 @@
      compressedData compressedSize
      tmp srcOffset dstOffset isGif89 atEnd
      h "{ Class: SmallInteger }" 
-     img frame imageCount|
+     img firstImage firstFrameDelay frame imageCount|
 
     inStream := aStream.
     aStream binary.
@@ -411,16 +411,23 @@
 
                 imageCount == 0 ifTrue:[
                     img := self makeImage.
-                    frame := ImageFrame new image:img.
-                    frame delay:frameDelay.
+                    "/ remember first image in case more come later.
+                    firstImage := img.
+                    firstFrameDelay := frameDelay.
                 ] ifFalse:[
                     imageCount == 1 ifTrue:[
                         imageSequence := ImageSequence new.
                         img imageSequence:imageSequence.
+
+                        "/ add frame for first image.
+                        frame := ImageFrame new image:firstImage.
+                        frame delay:firstFrameDelay.
                         imageSequence add:frame.
                     ].  
                     img := self makeImage.
                     img imageSequence:imageSequence.
+
+                    "/ add frame for this image.
                     frame := ImageFrame new image:img.
                     frame delay:frameDelay.
                     imageSequence add:frame.
@@ -454,7 +461,7 @@
     "
 
     "Modified: / 5.7.1996 / 17:32:01 / stefan"
-    "Modified: / 1.4.1998 / 19:03:46 / cg"
+    "Modified: / 2.4.1998 / 11:39:52 / cg"
 !
 
 makeGreyscale
@@ -981,6 +988,6 @@
 !GIFReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.70 1998-04-01 17:14:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.71 1998-04-02 10:02:39 cg Exp $'
 ! !
 GIFReader initialize!