--- a/Image.st	Thu Jul 11 20:51:47 1996 +0200
+++ b/Image.st	Thu Jul 11 21:27:46 1996 +0200
@@ -6597,14 +6597,16 @@
      and especially, the color allocations)."
 
     |yS "{Class: SmallInteger }"
-     yE "{Class: SmallInteger }"|
-
-    yS := xStart.
-    yE := xEnd.
+     yE "{Class: SmallInteger }"
+     yR|
+
+    yS := yStart.
+    yE := yEnd.
 
     yS to:yE do:[:yRun |    
+	yR := yRun.
         self colorsAtY:yRun from:xStart to:xEnd do:[:xRun :color |
-            aBlock value:xRun value:yRun value:color 
+            aBlock value:xRun value:yR value:color 
         ]
     ]
 
@@ -8515,6 +8517,6 @@
 !Image  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.120 1996-07-11 18:50:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.121 1996-07-11 19:27:46 cg Exp $'
 ! !
 Image initialize!