diff --git a/unfinished/regexp2/regexp2.factor b/unfinished/regexp2/regexp2.factor
index efc5c660de..24221baeb6 100644
--- a/unfinished/regexp2/regexp2.factor
+++ b/unfinished/regexp2/regexp2.factor
@@ -29,7 +29,7 @@ IN: regexp2
 
 : matches? ( string regexp -- ? )
     dupd match
-    [ [ length ] [ range-length 1- ] bi* = ] [ drop f ] if* ;
+    [ [ length ] [ length>> 1- ] bi* = ] [ drop f ] if* ;
 
 : match-head ( string regexp -- end ) match length>> 1- ;
 
diff --git a/unfinished/regexp2/traversal/traversal.factor b/unfinished/regexp2/traversal/traversal.factor
index a5db2cdaa8..0bc304bfe0 100644
--- a/unfinished/regexp2/traversal/traversal.factor
+++ b/unfinished/regexp2/traversal/traversal.factor
@@ -18,7 +18,7 @@ TUPLE: dfa-traverser
     matches ;
 
 : <dfa-traverser> ( text regexp -- match )
-    [ dfa-table>> ] [ traversal-flags>> ] bi
+    [ dfa-table>> ] [ dfa-traversal-flags>> ] bi
     dfa-traverser new
         swap >>traversal-flags
         swap [ start-state>> >>current-state ] keep