--- a/Image.st	Mon Jul 27 10:11:08 1998 +0200
+++ b/Image.st	Mon Jul 27 10:13:45 1998 +0200
@@ -5131,7 +5131,6 @@
 
     |depth 
      nColors "{ Class: SmallInteger }"
-     w       "{ Class: SmallInteger }"
      h       "{ Class: SmallInteger }"
      pixel   "{ Class: SmallInteger }"
      colorValues 
@@ -5196,15 +5195,14 @@
     "/ colorMap indices by color values in the bits array
 
     h := height - 1.
-    w := width - 1.
     pixelArray := self pixelArraySpecies new:width.
     newPixelArray := i pixelArraySpecies new:width.
 
     0 to:h do:[:y |
         self rowAt:y into:pixelArray.
-        0 to:w do:[:x |
-            pixel := pixelArray at:(x+1).
-            newPixelArray at:(x+1) put:(colorValues at:pixel + 1).
+        1 to:width do:[:x |
+            pixel := pixelArray at:x.
+            newPixelArray at:x put:(colorValues at:pixel + 1).
         ].
         i rowAt:y putAll:newPixelArray.
     ].
@@ -5215,16 +5213,16 @@
 
     form 
         copyBitsFrom:imageBits 
-	bitsPerPixel:usedDeviceBitsPerPixel 
-	depth:usedDeviceDepth 
-	padding:8
+        bitsPerPixel:usedDeviceBitsPerPixel 
+        depth:usedDeviceDepth 
+        padding:8
         width:width height:height 
         x:0 y:0 
-	toX:0 y:0. 
+        toX:0 y:0. 
 
     ^ form
 
-    "Modified: 24.4.1997 / 20:43:34 / cg"
+    "Modified: / 24.7.1998 / 00:56:14 / cg"
 ! !
 
 !Image methodsFor:'converting rgb images'!
@@ -11354,6 +11352,6 @@
 !Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.247 1998-07-25 16:40:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.248 1998-07-27 08:13:45 cg Exp $'
 ! !
 Image initialize!