diff --git a/tests/find-replace b/tests/find-replace
index 99e3a4b..d78e8f5 100755
--- a/tests/find-replace
+++ b/tests/find-replace
@@ -5,17 +5,19 @@ gto
 =i
 =term
 =text
+$i
 :loop
+=_
 $text
 $i
-$i
+dup
 $term
 len
 add
 slc
 =part
 $i
-$i
+dup
 inc
 =i
 $i