1 files changed, 1 insertions, 1 deletions

diff --git a/src/fns.c b/src/fns.c
index 69bcb6f7d86..24c737141cc 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -1457,7 +1457,7 @@ map_char_table (c_function, function, subtable, arg, depth, indices)
     {
       Lisp_Object elt = XCHAR_TABLE (subtable)->contents[i];
 
-      indices[depth] = i;
+      XSETFASTINT (indices[depth], i);
 
       if (SUB_CHAR_TABLE_P (elt))
         {