From b741225899a60aed4dc335c365970a7bb69efa58 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 24 Apr 2009 18:27:12 +0000
Subject: [PATCH] fix wong-sized local array

svn: r14597
---
 src/mzscheme/src/stxobj.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;