From 689134ea02b212d4ec6fc051c62ed5e434384a21 Mon Sep 17 00:00:00 2001
From: frese <frese>
Date: Mon, 28 Jan 2002 00:17:30 +0000
Subject: [PATCH] - fixed little bug in write-bitmap-file.

---
 scheme/xlib/pixmap.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)