From 1f0508d77efee34909e880ebba123c8ae02424ce Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 2 Nov 2012 13:01:37 -0600
Subject: [PATCH] fix initialization of local

---
 src/racket/src/eval.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/racket/src/eval.c b/src/racket/src/eval.c
index ddd3e8223d..74df9a6a68 100644
--- a/src/racket/src/eval.c
+++ b/src/racket/src/eval.c
@@ -919,6 +919,7 @@ static Scheme_Object *link_toplevel(Scheme_Object **exprs, int which, Scheme_Env
         modname = env->module->modname;
         mod_phase = env->mod_phase;
       }
+      shape = NULL;
     } else if (SCHEME_PAIRP(expr)) {
       varname = SCHEME_CAR(expr);
       modname = SCHEME_CDR(expr);
@@ -926,6 +927,7 @@ static Scheme_Object *link_toplevel(Scheme_Object **exprs, int which, Scheme_Env
         mod_phase = SCHEME_INT_VAL(SCHEME_CDR(modname));
         modname = SCHEME_CAR(modname);
       }
+      shape = NULL;
     } else {
       modname = SCHEME_VEC_ELS(expr)[0];
       varname = SCHEME_VEC_ELS(expr)[1];