diff --git a/src/mzscheme/src/module.c b/src/mzscheme/src/module.c
index 67f56d7807..14e99e894f 100644
--- a/src/mzscheme/src/module.c
+++ b/src/mzscheme/src/module.c
@@ -1980,9 +1980,9 @@ Scheme_Object *scheme_check_accessible_in_module(Scheme_Env *env, Scheme_Object
 
   if ((env == scheme_initial_env)
       || (env->module->primitive)
-      /* For now, we're pretending that all definitions exists for
-	 local phase 1 and up. */
-      || env->mod_phase) {
+      /* For now[?], we're pretending that all definitions exists for
+	 non-0 local phase. */
+      || (env->mod_phase != env->phase)) {
     if (want_pos)
       return scheme_make_integer(-1);
     else