diff --git a/scheme/libs/xft.scm b/scheme/libs/xft.scm
index a3380d6..1eb30cf 100644
--- a/scheme/libs/xft.scm
+++ b/scheme/libs/xft.scm
@@ -227,7 +227,8 @@
   (call-with-values
    (lambda ()
      (let ((screen-number (screen:number screen)))
-       (scx-xft-font-match-internal display screen-number xft-pattern)))
+       (apply values
+	      (scx-xft-font-match-internal display screen-number xft-pattern))))
    (lambda (result xft-pattern)
      (add-finalizer! xft-pattern scx-xft-pattern-destroy)
      (values result xft-pattern))))