diff --git a/src/mzscheme/src/fun.c b/src/mzscheme/src/fun.c
index 2ff50de65e..890959c32d 100644
--- a/src/mzscheme/src/fun.c
+++ b/src/mzscheme/src/fun.c
@@ -920,6 +920,8 @@ scheme_optimize_closure_compilation(Scheme_Object *_data, Optimize_Info *info)
   cl->base_closure_map = dcm;
   if (scheme_env_uses_toplevel(info))
     cl->has_tl = 1;
+  else
+    cl->has_tl = 0;
   cl->body_size = info->size;
 
   info->size++;