diff --git a/tp.el b/tp.el
index ca81954..9ac17f6 100644
--- a/tp.el
+++ b/tp.el
@@ -1063,7 +1063,7 @@ Uses `tp-search-forward' for buffers and `tp-search' for strings."
             (buf (or object (current-buffer))))
         (with-current-buffer buf
           (dotimes (_ count)
-            (setq result (tp-search-forward property value))))
+            (setq result (tp-search-forward property value t))))
         result)))))
 
 (defun tp-backward (property &optional value object n)
@@ -1124,7 +1124,7 @@ Returns the number of successful matches."
           (save-excursion
             (when point (goto-char point))
             (dotimes (_ count)
-              (when-let ((match (tp-search-forward property value)))
+              (when-let ((match (tp-search-forward property value t)))
                 (funcall function match buf)
                 (cl-incf matches)))))
         matches)))))