diff --git a/c/libs/xft.c b/c/libs/xft.c
index 7dc3227..40ca439 100644
--- a/c/libs/xft.c
+++ b/c/libs/xft.c
@@ -160,7 +160,7 @@ s48_value scx_XftFontMatch(s48_value sdpy, s48_value sscreenno, s48_value sxp)
   if (p == NULL)
   return s48_list_2(S48_FALSE, S48_FALSE);
   else
-  return s48_list_2(s48_enter_fixnum(r), scx_enter_xftpattern(p));
+  return s48_list_2(s48_enter_integer(r), scx_enter_xftpattern(p));
 }
 
 s48_value scx_XftFontOpenPattern(s48_value sdpy, s48_value sxp)