--- a/ImageEditor.st	Tue May 20 18:55:39 2003 +0200
+++ b/ImageEditor.st	Sat Jun 21 12:00:18 2003 +0200
@@ -3888,7 +3888,7 @@
 !
 
 reduceNumberOfColors
-    |s n anyChange img|
+    |s n anyChange img usedColors|
 
     s := Dialog request:'Number of color bits to strip (1-7) ?'.
     s size == 0 ifTrue:[^ self].
@@ -3910,7 +3910,12 @@
 "/            self listOfColors contents:(img colorMap).
 "/            self findColorMapMode.
 "/            self updateLabelsAndHistory.
-            Dialog information:(img usedColors size printString , ' colors used.')
+            usedColors := img usedColorsMax:10000.
+            usedColors size == 10000 ifTrue:[
+                Dialog information:('>= ' , usedColors size printString , ' colors used.')
+            ] ifFalse:[
+                Dialog information:(usedColors size printString , ' colors used.')
+            ]
         ]
     ].
 !