From 5bd2ce24d99a0f070054b0a54a91e5c0f1898367 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 19 Jul 2012 07:46:34 -0500
Subject: [PATCH] fix related to module name resolver change (cherry picked
 from commit 9413b30599be8aa3c990a67448833f643bcd1f4a)

---
 src/racket/src/module.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/racket/src/module.c b/src/racket/src/module.c
index c88f73c745..ab25f42cee 100644
--- a/src/racket/src/module.c
+++ b/src/racket/src/module.c
@@ -6240,7 +6240,7 @@ static Scheme_Object *do_module_execute(Scheme_Object *data, Scheme_Env *genv,
   }
 
   if (!set_in_pre) {
-    Scheme_Object *resolver, *a[1];
+    Scheme_Object *resolver, *a[2];
     resolver = scheme_get_param(config, MZCONFIG_CURRENT_MODULE_RESOLVER);
     a[0] = m->modname;
     a[1] = scheme_false;