--- a/ImageEditor.st	Mon Jan 09 09:52:51 2006 +0100
+++ b/ImageEditor.st	Mon Jan 09 11:37:29 2006 +0100
@@ -3175,13 +3175,13 @@
 
 !ImageEditor methodsFor:'data access'!
 
-atColor:aOldColor put:newColor
+atColor:anOldColor put:newColor
     "a color changed to a new color
     "
     |index list oldColor image newImage oldSel|
 
     list  := self listOfColors.
-    index := list identityIndexOf:aOldColor.
+    index := list identityIndexOf:anOldColor.
 
     oldSel := self selectionOfColor value.
     index ~~ 0 ifTrue:[
@@ -3203,7 +3203,7 @@
                 do:[:x :y :clr |
                     |newClr|
 
-                    newClr := (clr = oldColor) ifTrue:newColor ifFalse:clr.
+                    newClr := (clr = oldColor) ifTrue:[newColor] ifFalse:[clr].
                     newImage colorAtX:x y:y put:newClr
                 ].
             imageEditView image:newImage.