From 8bd6fd9c30d14831124200ac7243816f81a75249 Mon Sep 17 00:00:00 2001
From: frese <frese>
Date: Sun, 17 Mar 2002 15:49:30 +0000
Subject: [PATCH] - fixed a bug gcontext-font.

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

diff --git a/scheme/xlib/gcontext.scm b/scheme/xlib/gcontext.scm
index a87b691..4b3242d 100644
--- a/scheme/xlib/gcontext.scm
+++ b/scheme/xlib/gcontext.scm
@@ -215,7 +215,7 @@
       ((eq? v (gc-value font))
        (lambda (Xfont)
 	 ;; -> see Xlib Programming Manual 5.12
-	 (make-font #f Xfont #f display #t)))
+	 (make-font #f Xfont #f display #f)))
       ((eq? v (gc-value subwindow-mode))
        integer->subwindow-mode)
       ((eq? v (gc-value graphics-exposures))