diff --git a/fonts.lisp b/fonts.lisp
index 4d557b4b1b616475851bfbc85f7c6390c273c636..a5bd4daaf6b3a7027f27e285001f62cd3fe8f43c 100644
--- a/fonts.lisp
+++ b/fonts.lisp
@@ -163,6 +163,8 @@
 	(string name-string))
       (push font (display-font-cache display)))
     (incf (font-reference-count font))
+    (unless (font-font-info-internal font)
+      (query-font font))
     font))
 
 (defun open-font-internal (font)