--- a/Depth24Image.st	Thu Jan 16 23:53:57 1997 +0100
+++ b/Depth24Image.st	Thu Jan 16 23:57:16 1997 +0100
@@ -575,9 +575,9 @@
                             |id|
 
                             (fit and:[present ~~ 0]) ifTrue:[
-                                color := Color red:(r * 100.0 / 255.0)
-                                             green:(g * 100.0 / 255.0)
-                                              blue:(b * 100.0 / 255.0).
+                                color := Color redByte:r
+                                             greenByte:g
+                                              blueByte:b.
                                 color := color on:aDevice.
                                 (id := color colorId) isNil ifTrue:[
                                     fit := false
@@ -1711,5 +1711,5 @@
 !Depth24Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.40 1997-01-15 13:55:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.41 1997-01-16 22:57:16 cg Exp $'
 ! !