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))