1 files changed, 1 insertions, 1 deletions

diff --git a/src/ftfont.c b/src/ftfont.c
index 47425e853da..cd8829a3e51 100644
--- a/src/ftfont.c
+++ b/src/ftfont.c
@@ -815,7 +815,7 @@ ftfont_spec_pattern (Lisp_Object spec, char *otlayout, struct OpenTypeSpec **ots
             goto err;
           for (chars = XCDR (chars); CONSP (chars); chars = XCDR (chars))
             if (CHARACTERP (XCAR (chars))
-                && ! FcCharSetAddChar (charset, XUINT (XCAR (chars))))
+                && ! FcCharSetAddChar (charset, XFASTINT (XCAR (chars))))
               goto err;
         }
     }