--- a/Depth4Image.st	Tue Jul 28 16:12:31 1998 +0200
+++ b/Depth4Image.st	Tue Jul 28 21:45:10 1998 +0200
@@ -170,7 +170,7 @@
 !Depth4Image methodsFor:'converting images'!
 
 anyImageAsTrueColorFormOn:aDevice
-    "return a true-color device-form for the palette-image receiver.
+    "return a true-color device-form for receiver.
      Supports true color devices with depths: 8, 16, 24 and 32"
 
     |depth 
@@ -804,9 +804,9 @@
         shift := 0
     ].
 
+    byte := bytes at:srcIndex.
     x1 to:x2 do:[:x |
         shift == 0 ifTrue:[
-            byte := bytes at:srcIndex.
             value := byte bitAnd:16rF.
             shift := -4.
             srcIndex := srcIndex + 1.
@@ -818,8 +818,8 @@
         aBlock value:x value:(colorArray at:(value + 1)).
     ]
 
-    "Created: 7.6.1996 / 19:12:33 / cg"
-    "Modified: 10.6.1996 / 10:29:39 / cg"
+    "Created: / 7.6.1996 / 19:12:33 / cg"
+    "Modified: / 28.7.1998 / 21:26:11 / cg"
 !
 
 valuesAtY:y from:xLow to:xHigh do:aBlock
@@ -1009,5 +1009,5 @@
 !Depth4Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Depth4Image.st,v 1.30 1998-07-27 08:18:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth4Image.st,v 1.31 1998-07-28 19:45:10 cg Exp $'
 ! !