diff --git a/fcore/search-list/nfa.sml b/fcore/search-list/nfa.sml
index 4f82a12..f71ca9e 100644
--- a/fcore/search-list/nfa.sml
+++ b/fcore/search-list/nfa.sml
@@ -264,7 +264,7 @@ struct
                   val acc = PersistentVector.append (startIdx, foundIdx, acc)
                 in
                   loop
-                    ( foundIdx + 1
+                    ( strIdx + 1
                     , hd
                     , tl
                     , prevStrings
@@ -305,7 +305,7 @@ struct
                         , origNfa
                         , acc
                         , absIdx
-                        , absIdx
+                        , startIdx + 1
                         , finishIdx
                         )
                     end