--- a/GIFReader.st	Sun May 27 12:53:33 2012 +0200
+++ b/GIFReader.st	Tue Jul 17 13:39:31 2012 +0200
@@ -596,11 +596,11 @@
             ^ self
         ]
     ].
-
+    image compressColorMap.
     usedPixelValues := image usedValues.
     usedPixelValues size < (1 bitShift:image depth) ifFalse:[
         Image informationLostQuerySignal
-            raiseWith:image
+            raiseRequestWith:image
             errorString:('GIF writer cannot assign a transparent pixel - all pixelValues used by image').
     ].
 
@@ -609,6 +609,8 @@
     unusedValues removeAll:usedPixelValues.
 
     maskPixel := unusedValues first.
+
+    "Modified: / 17-07-2012 / 12:25:24 / anwild"
 !
 
 checkCodeSize
@@ -988,11 +990,11 @@
 !GIFReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.98 2010-06-02 10:24:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.99 2012-07-17 11:39:31 anwild Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.98 2010-06-02 10:24:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.99 2012-07-17 11:39:31 anwild Exp $'
 ! !
 
 GIFReader initialize!