diff --git a/src/mzscheme/src/module.c b/src/mzscheme/src/module.c
index db515d2851..84f2a413a6 100644
--- a/src/mzscheme/src/module.c
+++ b/src/mzscheme/src/module.c
@@ -2125,6 +2125,7 @@ Scheme_Object *scheme_check_accessible_in_module(Scheme_Env *env, Scheme_Object
 
     if (pos) {
       if (env->module->provide_protects
+	  && (SCHEME_INT_VAL(pos) < env->module->num_provides)
 	  && env->module->provide_protects[SCHEME_INT_VAL(pos)]) {
 	if (_protected)
 	  *_protected = 1;