--- a/ImageEditor.st	Tue Aug 02 17:41:38 2005 +0200
+++ b/ImageEditor.st	Wed Aug 03 20:06:23 2005 +0200
@@ -2900,7 +2900,7 @@
 findColorMapMode
     "finds the colorMapMode for a new image"
 
-    |image listOfColors colorMapModeKey drawColor1 drawColor2|
+    |image listOfColors colorMapModeKey drawColor1 drawColor2 someOrAllUsedColors|
 
     image := self image.
 
@@ -2916,7 +2916,9 @@
     image depth > 12 ifTrue:[
         listOfColors removeAll.
         image colorMap isEmptyOrNil ifTrue:[
-            listOfColors add:Color black; add:Color white.
+            someOrAllUsedColors := image usedColorsMax:10000.
+            listOfColors addAll:someOrAllUsedColors.
+            "/ listOfColors add:Color black; add:Color white.
         ] ifFalse:[
             listOfColors addAll:(image colorMap).
         ].