diff --git a/lisp/auth-source-pass.el b/lisp/auth-source-pass.el
index 625fe94ff9d..15dfa2f358f 100644
--- a/lisp/auth-source-pass.el
+++ b/lisp/auth-source-pass.el
@@ -85,7 +85,7 @@ HOST, USER, PORT, REQUIRE, and MAX."
         ((null host)
          ;; Do not build a result, as none will match when HOST is nil
          nil)
-        ((not (file-directory-p (expand-file-name auth-source-pass-filename)))
+        ((not (file-directory-p auth-source-pass-filename))
          ;; Do nothing if the password-store folder doesn't exist.
          nil)
         (auth-source-pass-extra-query-keywords
diff --git a/test/lisp/auth-source-pass-tests.el b/test/lisp/auth-source-pass-tests.el
index 15fd9ed7007..2afd803240e 100644
--- a/test/lisp/auth-source-pass-tests.el
+++ b/test/lisp/auth-source-pass-tests.el
@@ -91,7 +91,10 @@ This function is intended to be set to `auth-source-debug'."
              ((symbol-function 'auth-source-pass-entries) (lambda () (mapcar #'car ,store))))
      (let ((auth-source-debug #'auth-source-pass--debug)
            (auth-source-pass--debug-log nil)
-           (auth-source-pass--parse-log nil))
+           (auth-source-pass--parse-log nil)
+           ;; Any existing directory will do, since we shouldn't do I/O
+           ;; except for the guard in `auth-source-pass-search'.
+           (auth-source-pass-filename default-directory))
        ,@body)))
 
 (defun auth-source-pass--explain-match-entry-p (entry hostname &optional user port)