diff --git a/lib/chibi/regexp.scm b/lib/chibi/regexp.scm
index d29f3d07..c1df216e 100644
--- a/lib/chibi/regexp.scm
+++ b/lib/chibi/regexp.scm
@@ -708,7 +708,7 @@
                    j
                    (kons (string-offset->index str from) md str acc)))))
        (else
-        (finish (string-offset->index str i) #f str acc))))))
+        (finish (string-offset->index str from) #f str acc))))))
 
 (define (regexp-extract rx str . o)
   (apply regexp-fold