diff --git a/scheme/xlib/visual.scm b/scheme/xlib/visual.scm
index 9722698..ce33d03 100644
--- a/scheme/xlib/visual.scm
+++ b/scheme/xlib/visual.scm
@@ -32,7 +32,7 @@
 (define-exported-binding "scx-visual-info" :visual-info)
 
 (define (empty-visual-info)
-  (make-visual #f #f #f #f #f #f #f #f #f #f))
+  (make-visual-info #f #f #f #f #f #f #f #f #f #f))
 
 ;; *** obtain visual information *************************************