1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/shell.el b/lisp/shell.el
index ba87a0f8ba4..9f07194d305 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -549,7 +549,9 @@ Environment variables are expanded, see function `substitute-in-file-name'."
 
 (defun shell-cd (dir)
   "Do normal `cd' to DIR, and set `list-buffers-directory'."
-  (if shell-dirtrackp (setq list-buffers-directory (expand-file-name dir)))
+  (if shell-dirtrackp
+      (setq list-buffers-directory (file-name-as-directory
+                                    (expand-file-name dir))))
   (cd dir))
 
 (defun shell-resync-dirs ()