diff --git a/basis/regexp/regexp.factor b/basis/regexp/regexp.factor
index 90218e05bd..7ea5db7d5d 100644
--- a/basis/regexp/regexp.factor
+++ b/basis/regexp/regexp.factor
@@ -139,7 +139,7 @@ M: regexp compile-next-match ( regexp -- regexp )
         dup \ next-initial-word = [
             drop _ compile-regexp dfa>>
             '[ _ '[ _ _ execute ] next-match ]
-            (( i string -- i match/f )) simple-define-temp
+            (( i string regexp -- i match/f )) simple-define-temp
         ] when
     ] change-next-match ;