diff --git a/lisp/ibuf-ext.el b/lisp/ibuf-ext.el
index de3035e9d04..375090e09c3 100644
--- a/lisp/ibuf-ext.el
+++ b/lisp/ibuf-ext.el
@@ -1861,8 +1861,9 @@ Otherwise buffers whose name matches an element of
          (cond ((and (not all-buffers)
                      (or
                       (memq mode ibuffer-never-search-content-mode)
-                      (cl-some (lambda (x) (string-match x (buffer-name buf)))
-                               ibuffer-never-search-content-name)))
+                      (cl-dolist (x ibuffer-never-search-content-name nil)
+                        (when-let ((found (string-match x (buffer-name buf))))
+                          (cl-return found)))))
                 (setq res nil))
                (t
                 (with-current-buffer buf