--- a/Image.st	Sun Sep 15 18:54:56 2019 +0200
+++ b/Image.st	Mon Sep 16 16:12:57 2019 +0200
@@ -3227,7 +3227,7 @@
     "Modified (comment): / 29-08-2017 / 14:35:55 / cg"
 !
 
-at:aPoint put:aColor
+at:aPoint put:aColorOrPixel
     "WARNING: for now, this expects a pixel's color
      (backward compatibility with ST/X)
      In the future, this will expect a pixel value (ST-80 compatibility)
@@ -3240,11 +3240,11 @@
      very slow ...
      (it is meant to access individual pixels - for example, in a bitmap editor)"
 
-    aColor isInteger ifTrue:[
-        ^ self pixelAtX:aPoint x y:aPoint y put:aColor.
+    aColorOrPixel isInteger ifTrue:[
+        ^ self pixelAtX:aPoint x y:aPoint y put:aColorOrPixel.
     ].
     self obsoleteFeatureWarning:'Image [warning]: the Image>>at:put: will change semantics soon; use #colorAt:put:'.
-    ^ self colorAtX:aPoint x y:aPoint y put:aColor.
+    ^ self colorAtX:aPoint x y:aPoint y put:aColorOrPixel.
 
     "Modified: / 21-06-1997 / 13:16:02 / cg"
     "Modified: / 09-01-1998 / 20:34:15 / stefan"