--- a/Image.st	Wed Jan 24 23:05:18 1996 +0100
+++ b/Image.st	Wed Jan 24 23:30:49 1996 +0100
@@ -1690,8 +1690,12 @@
 
     |type|
 
+    (ddepth := aDevice depth) == 1 ifTrue:[
+	^ self paletteImageAsMonoFormOn:aDevice
+    ].
+
     ((type := aDevice visualType) == #StaticGray) ifTrue:[
-        (aDevice depth == 8) ifTrue:[
+        ddepth == 8 ifTrue:[
             ^ self paletteImageAsGreyFormOn:aDevice
         ].
 
@@ -1699,7 +1703,7 @@
             ^ self paletteImageAsPatternDitheredGreyFormOn:aDevice
         ].
 
-        (aDevice depth == 2) ifTrue:[
+        ddepth == 2 ifTrue:[
             ^ self paletteImageAs2PlaneFormOn:aDevice
         ].
 
@@ -3196,5 +3200,5 @@
 !Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.53 1995-12-11 17:57:21 cg Exp $'! !
+    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.54 1996-01-24 22:30:49 cg Exp $'! !
 Image initialize!