diff --git a/scheme/xlib/font.scm b/scheme/xlib/font.scm
index ab6bca1..10c1ed7 100644
--- a/scheme/xlib/font.scm
+++ b/scheme/xlib/font.scm
@@ -66,7 +66,7 @@
   "scx_Free_Font")
 
 (define (get-font-property font-struct atom)
-  (let ((a (assq atom (font-struct:properties)))) ;; assq ??
+  (let ((a (assq atom (font-struct:properties font-struct)))) ;; assq ??
     (and a (cdr a))))
 
 ;; *** obtain or free font names and information *********************