--- a/GIFReader.st	Tue Jun 01 11:28:11 2010 +0200
+++ b/GIFReader.st	Wed Jun 02 12:21:55 2010 +0200
@@ -318,7 +318,7 @@
         "/
         "/ Ratio extension
         "/
-        'GIFREADER [info]: ratio extension ignored' infoPrintCR.
+        "/ 'GIFREADER [info]: ratio extension ignored' infoPrintCR.
         blockSize := aStream nextByte.
         (blockSize == 2) ifTrue:[
             aspNum := aStream nextByte.
@@ -326,8 +326,8 @@
         ] ifFalse:[
             aStream skip:blockSize
         ].
+
         "/ eat subblocks
-        
         [(subBlockSize := aStream nextByte) > 0] whileTrue:[
             aStream skip:subBlockSize
         ].
@@ -338,7 +338,7 @@
         "/
         "/ plaintext extension
         "/
-"/        'GIFREADER [info]: plaintext extension ignored' infoPrintCR.
+        "/ 'GIFREADER [info]: plaintext extension ignored' infoPrintCR.
         subBlockSize := aStream nextByte.
         left := aStream nextShortMSB:false.
         top := aStream nextShortMSB:false.
@@ -349,6 +349,7 @@
         fg := aStream nextByte.
         bg := aStream nextByte.
         aStream skip:12.
+        "/ eat subblocks
         [(subBlockSize := aStream nextByte) > 0] whileTrue:[
             aStream skip:subBlockSize
         ].
@@ -359,7 +360,7 @@
         "/
         "/ graphic control extension
         "/
-"/        'GIFREADER [info]: graphic control extension' infoPrintCR.
+        "/ 'GIFREADER [info]: graphic control extension' infoPrintCR.
 
         [(subBlockSize := aStream nextByte) ~~ 0 and:[subBlockSize notNil]] whileTrue:[
             "/ type bitAnd:1 means: animationMask is transparent pixel
@@ -392,7 +393,7 @@
         "/
         "/ comment extension
         "/
-"/        'GIFREADER [info]: comment extension ignored' infoPrintCR.
+        "/ 'GIFREADER [info]: comment extension' infoPrintCR.
         [(blockSize := aStream nextByte) ~~ 0] whileTrue:[
             aStream skip:blockSize
         ].
@@ -403,6 +404,7 @@
         "/
         "/  application extension
         "/
+        "/ 'GIFREADER [info]: application extension' infoPrintCR.
         subBlockSize := aStream nextByte.
         appID := (aStream nextBytes:8 ) asString.
         appAUTH := aStream nextBytes:3.
@@ -453,7 +455,7 @@
         aStream skip:subBlockSize
     ]
 
-    "Modified: / 1.4.1998 / 15:01:18 / cg"
+    "Modified: / 02-06-2010 / 12:21:53 / cg"
 !
 
 readImage:aStream
@@ -986,7 +988,11 @@
 !GIFReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.96 2009-07-31 08:49:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.97 2010-06-02 10:21:55 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.97 2010-06-02 10:21:55 cg Exp $'
 ! !
 
 GIFReader initialize!