diff --git a/clx/image.lisp b/clx/image.lisp
index f5c6c2e833c711391bf4eafd3d51f67580e7ae6d..35ed7f106a5a9bed3d9845d9bcf9dbd51bb6c8dd 100644
--- a/clx/image.lisp
+++ b/clx/image.lisp
@@ -2653,7 +2653,7 @@
 	(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)
-							(not (null gcontext)))
+							(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