2 files changed, 2 insertions, 2 deletions

diff --git a/test/lisp/net/tramp-archive-tests.el b/test/lisp/net/tramp-archive-tests.el
index 3229d2b6506..95e41a3f03b 100644
--- a/test/lisp/net/tramp-archive-tests.el
+++ b/test/lisp/net/tramp-archive-tests.el
@@ -669,7 +669,7 @@ This tests also `access-file', `file-readable-p' and `file-regular-p'."
           (setq attr (directory-files-and-attributes tmp-name 'full))
           (dolist (elt attr)
             (should (equal (file-attributes (car elt)) (cdr elt))))
-          (setq attr (directory-files-and-attributes tmp-name nil "^b"))
+          (setq attr (directory-files-and-attributes tmp-name nil "\\`b"))
           (should (equal (mapcar #'car attr) '("bar"))))
 
       ;; Cleanup.
diff --git a/test/lisp/net/tramp-tests.el b/test/lisp/net/tramp-tests.el
index 47d51767c5c..544bdb5c058 100644
--- a/test/lisp/net/tramp-tests.el
+++ b/test/lisp/net/tramp-tests.el
@@ -3331,7 +3331,7 @@ They might differ only in time attributes or directory size."
                (tramp--test-file-attributes-equal-p
                 (file-attributes (car elt)) (cdr elt))))
 
-            (setq attr (directory-files-and-attributes tmp-name2 nil "^b"))
+            (setq attr (directory-files-and-attributes tmp-name2 nil "\\`b"))
             (should (equal (mapcar #'car attr) '("bar" "boz"))))
 
         ;; Cleanup.