# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1257458214 -3600
# Node ID 5e6bbceb68c19ff1b0d8d7d3caae1ad57bded43c
# Parent  fac7e515623560061ebf09a96d1c6bef13e331ac
changed: #compressColorMap

diff -r fac7e5156235 -r 5e6bbceb68c1 ImageEditor.st
--- a/ImageEditor.st	Thu Nov 05 21:14:35 2009 +0100
+++ b/ImageEditor.st	Thu Nov 05 22:56:54 2009 +0100
@@ -4702,14 +4702,15 @@
     oldToNew := ByteArray new:(1 bitShift:depth).
     newColorMap := usedColors asArray.
     newColorMap sort:self sortBlockForColors.
-
-    oldImage colorMap asArray keysAndValuesDo:[:oldIdx :clr |
-        |newPixel|
-
-        (usedColors includes:clr) ifTrue:[
-            newPixel := newColorMap indexOf:clr.
-            oldToNew at:oldIdx put:newPixel-1.
-        ]
+    oldImage colorMap notNil ifTrue:[
+        oldImage colorMap asArray keysAndValuesDo:[:oldIdx :clr |
+            |newPixel|
+
+            (usedColors includes:clr) ifTrue:[
+                newPixel := newColorMap indexOf:clr.
+                oldToNew at:oldIdx put:newPixel-1.
+            ]
+        ].
     ].
 
     oldBits := oldImage bits.