diff --git a/src/mzscheme/src/stxobj.c b/src/mzscheme/src/stxobj.c
index 0046a1e5f0..a012173ea4 100644
--- a/src/mzscheme/src/stxobj.c
+++ b/src/mzscheme/src/stxobj.c
@@ -4888,7 +4888,7 @@ Scheme_Object *scheme_stx_module_name(Scheme_Hash_Table *free_id_recur,
            and nominal_name is NULL or a free_id=? renamed id. */
 {
   if (SCHEME_STXP(*a)) {
-    Scheme_Object *modname, *names[6];
+    Scheme_Object *modname, *names[7];
     int rib_dep;
 
     names[0] = NULL;