diff --git a/clx/image.lisp b/clx/image.lisp
index 080043bc94cd0bcca7e50ab85cc28ad8b21bb9b5..f5c6c2e833c711391bf4eafd3d51f67580e7ae6d 100644
--- a/clx/image.lisp
+++ b/clx/image.lisp
@@ -2652,7 +2652,8 @@
 	  (unless gcontext (xlib::required-arg gcontext))
 	(error "Pixmap depth ~d incompatable with image depth ~d"
 	       depth image-depth)))	       
-    (put-image pixmap gc image :x 0 :y 0 :bitmap-p (and (= image-depth 1) gcontext))
+    (put-image pixmap gc image :x 0 :y 0 :bitmap-p (and (= image-depth 1)
+							(not (null gcontext)))
     ;; Tile when image-width is less than the pixmap width, or
     ;; the image-height is less than the pixmap height.
     ;; ??? Would it be better to create a temporary pixmap and