diff --git a/src/mzscheme/src/module.c b/src/mzscheme/src/module.c index 1b1391223c..9e787a618f 100644 --- a/src/mzscheme/src/module.c +++ b/src/mzscheme/src/module.c @@ -2074,8 +2074,7 @@ Scheme_Object *scheme_check_accessible_in_module(Scheme_Env *env, Scheme_Object } if (pos) { - if ((SCHEME_INT_VAL(pos) < env->module->num_var_provides) - && env->module->provide_protects + if (env->module->provide_protects && env->module->provide_protects[SCHEME_INT_VAL(pos)]) { if (_protected) *_protected = 1;