1 files changed, 1 insertions, 1 deletions

diff --git a/test/lisp/files-tests.el b/test/lisp/files-tests.el
index f4ccd5c2044..6fbe993bfdd 100644
--- a/test/lisp/files-tests.el
+++ b/test/lisp/files-tests.el
@@ -229,7 +229,7 @@ be $HOME."
                (or def init)))
             (dir (make-temp-file "read-file-name-test" t)))
     (unwind-protect
-        (let ((subdir (expand-file-name "./~/")))
+        (let ((subdir (expand-file-name "./~/" dir)))
           (make-directory subdir t)
           (with-temp-buffer
             (setq default-directory subdir)