--- a/ImageEditor.st	Wed Jul 29 18:09:53 1998 +0200
+++ b/ImageEditor.st	Wed Jul 29 18:13:00 1998 +0200
@@ -1625,9 +1625,7 @@
 compressColorMap
     "calculates a new color map for the image, using only used colors"
 
-    |depth numColors newColorMap newImage 
-     oldImage  newColors realColorMap oldFileName
-     usedColors useNearest oldToNew oldBits newBits tmpBits| 
+    |depth newColorMap newImage oldImage usedColors oldToNew oldBits newBits tmpBits| 
 
     oldImage := self image.
     depth := oldImage depth.