1 files changed, 1 insertions, 1 deletions

diff --git a/src/alloc.c b/src/alloc.c
index ad3f5235480..99f5cdcdea2 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -5339,7 +5339,7 @@ compact_font_cache_entry (Lisp_Object entry)
           && !VECTOR_MARKED_P (XFONT_SPEC (XCAR (obj)))
           && VECTORP (XCDR (obj)))
         {
-          ptrdiff_t i, size = ASIZE (XCDR (obj)) & ~ARRAY_MARK_FLAG;
+          ptrdiff_t i, size = gc_asize (XCDR (obj));
 
           /* If font-spec is not marked, most likely all font-entities
              are not marked too.  But we must be sure that nothing is