diff --git a/scheme/xlib/pixmap.scm b/scheme/xlib/pixmap.scm
index 15e66c6..26d8cdc 100644
--- a/scheme/xlib/pixmap.scm
+++ b/scheme/xlib/pixmap.scm
@@ -72,7 +72,7 @@
 	(xy-hot (cond
 		 ((null? hotspot) (cons -1 -1))
 		 (else (car hotspot)))))
-    (%write-bitmap-file dpy filename pixmap width height 
+    (%write-bitmap-file dpy filename (pixmap-Xpixmap pixmap) width height 
 			(car xy-hot) (cdr xy-hot))))
 
 (import-lambda-definition %write-bitmap-file (Xdisplay file Xpixmap w h x y)