--- a/Image.st	Tue Feb 21 01:59:53 2017 +0100
+++ b/Image.st	Tue Feb 21 02:03:45 2017 +0100
@@ -9768,23 +9768,28 @@
      If aPixelValueOrNil is nil, the mask pixel will be set to 0 (transparent),
      otherwise to 1. (used by the bitmap editor)"
 
-    |xI "{ Class: SmallInteger }"
-     yI "{ Class: SmallInteger }"
+    |xLeft  "{ Class: SmallInteger }"
+     xRight "{ Class: SmallInteger }"
+     yTop   "{ Class: SmallInteger }"
+     yBot   "{ Class: SmallInteger }"
      wI "{ Class: SmallInteger }"
      hI "{ Class: SmallInteger }"|
 
-    xI := aRectangle left.
-    yI := aRectangle top.
     wI := aRectangle width.
     hI := aRectangle height.
 
-    xI to:xI+wI-1 do:[:xRun|
-        self atImageAndMask: xRun@yI put:aPixelValueOrNil.
-        self atImageAndMask: xRun@(yI+hI-1) put:aPixelValueOrNil
-    ].
-    yI+1 to:yI+hI-2 do:[:yRun|
-        self atImageAndMask: xI@yRun put:aPixelValueOrNil.
-        self atImageAndMask: xI+wI-1@yRun put:aPixelValueOrNil
+    xLeft := aRectangle left.
+    xRight := xLeft+wI-1.
+    yTop := aRectangle top.
+    yBot := yTop+hI-1.
+
+    xLeft to:xLeft+wI-1 do:[:xRun|
+        self atImageAndMask: xRun@yTop put:aPixelValueOrNil.
+        self atImageAndMask: xRun@yBot put:aPixelValueOrNil
+    ].
+    yTop+1 to:yTop+hI-2 do:[:yRun|
+        self atImageAndMask: xLeft@yRun put:aPixelValueOrNil.
+        self atImageAndMask: xRight@yRun put:aPixelValueOrNil
     ].
     self release. "/ device-image is no longer valid
 
@@ -9796,6 +9801,8 @@
      i drawRectangle:(10@10 corner:90@90) withColor:1.
      i inspect.
     "
+
+    "Modified: / 21-02-2017 / 01:41:39 / cg"
 !
 
 fillAntiAliasedArc:origin radius:r from:startAngle angle:angle withColor:aColor colorDictionary:colorDictionary blendStart:blendStart