diff --git a/src/mzscheme/src/regexp.c b/src/mzscheme/src/regexp.c
index 44d21940c6..2177213cb2 100644
--- a/src/mzscheme/src/regexp.c
+++ b/src/mzscheme/src/regexp.c
@@ -1814,6 +1814,8 @@ regranges(int parse_flags, int at_start)
       break;
 
     regparse++;
+    if (regparse == regparse_end)
+      break;
   }
 
   regparse = save_regparse;