--- a/GIFReader.st	Wed Jan 08 23:45:36 1997 +0100
+++ b/GIFReader.st	Fri Jan 10 14:56:15 1997 +0100
@@ -370,7 +370,7 @@
         "/
         "/ Ratio extension
         "/
-        'GIFREADER: ratio extension ignored' infoPrintCR.
+        'GIFREADER [info]: ratio extension ignored' infoPrintCR.
         blockSize := aStream nextByte.
         (blockSize == 2) ifTrue:[
             aspNum := aStream nextByte.
@@ -390,7 +390,7 @@
         "/
         "/ comment extension
         "/
-        'GIFREADER: comment extension ignored' infoPrintCR.
+        'GIFREADER [info]: comment extension ignored' infoPrintCR.
         [(blockSize := aStream nextByte) ~~ 0] whileTrue:[
             aStream skip:blockSize
         ].
@@ -401,7 +401,7 @@
         "/
         "/ plaintext extension
         "/
-        'GIFREADER: plaintext extension ignored' infoPrintCR.
+        'GIFREADER [info]: plaintext extension ignored' infoPrintCR.
         subBlockSize := aStream nextByte.
         left := aStream nextShortMSB:false.
         top := aStream nextShortMSB:false.
@@ -422,7 +422,7 @@
         "/
         "/ graphic control extension
         "/
-"/        'GIFREADER: graphic control extension ignored' infoPrintCR.
+"/        'GIFREADER [info]: graphic control extension ignored' infoPrintCR.
         subBlockSize := aStream nextByte.
 
         "/ type=1 means: animationMask is transparent pixel
@@ -434,7 +434,7 @@
 
         animationType == 1 ifTrue:[
             maskPixelValue := animationMask.
-"/            'GIFREADER: mask: ' infoPrint. (maskPixelValue printStringRadix:16) infoPrintCR.
+"/            'GIFREADER [info]: mask: ' infoPrint. (maskPixelValue printStringRadix:16) infoPrintCR.
         ].
 
         [(subBlockSize := aStream nextByte) > 0] whileTrue:[
@@ -447,7 +447,7 @@
         "/
         "/  application extension
         "/
-        'GIFREADER: application extension ignored' infoPrintCR.
+        'GIFREADER [info]: application extension ignored' infoPrintCR.
         [(subBlockSize := aStream nextByte) > 0] whileTrue:[
             aStream skip:subBlockSize
         ].
@@ -457,17 +457,17 @@
     "/
     "/ unknown extension
     "/
-    'GIFREADER: unknown extension ignored' infoPrintCR.
+    'GIFREADER [info]: unknown extension ignored' infoPrintCR.
     [(subBlockSize := aStream nextByte) > 0] whileTrue:[
         aStream skip:subBlockSize
     ]
 
-    "Modified: 21.6.1996 / 12:44:25 / cg"
+    "Modified: 10.1.1997 / 14:55:45 / cg"
 ! !
 
 !GIFReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.43 1996-10-18 12:23:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.44 1997-01-10 13:56:15 cg Exp $'
 ! !
 GIFReader initialize!