diff --git a/scheme/libs/xft.scm b/scheme/libs/xft.scm
index 55a5f57..2e79ec3 100644
--- a/scheme/libs/xft.scm
+++ b/scheme/libs/xft.scm
@@ -16,7 +16,7 @@
 (define-exported-binding "xft-font" :xft-font)
 
 (define-record-type xft-draw :xft-draw
-  (make-xft-draw c-pointer)
+  (make-xft-draw-internal c-pointer)
   xft-draw?
   (c-pointer xft-draw-c-pointer))