--- a/Depth24Image.st	Mon Jun 10 19:33:14 1996 +0200
+++ b/Depth24Image.st	Mon Jun 10 20:34:15 1996 +0200
@@ -154,12 +154,13 @@
 
     (aDevice visualType == #StaticGray) ifTrue:[
         aDevice depth == 8 ifTrue:[
-            ^ self makeDevicePixmapOn:aDevice depth:aDevice depth fromArray:(self threshold8BitGrayBits)
+            ^ self makeDeviceGrayPixmapOn:aDevice depth:aDevice depth fromArray:(self threshold8BitGrayBits)
         ].
     ].
     ^ super asGrayFormOn:aDevice
 
     "Created: 10.6.1996 / 19:00:45 / cg"
+    "Modified: 10.6.1996 / 20:10:19 / cg"
 !
 
 asThresholdGrayImageDepth:depth
@@ -1544,5 +1545,5 @@
 !Depth24Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.31 1996-06-10 17:24:31 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth24Image.st,v 1.32 1996-06-10 18:32:53 cg Exp $'
 ! !