1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/shell.el b/lisp/shell.el
index 7e7e17f39fb..06a7293af4a 100644
--- a/lisp/shell.el
+++ b/lisp/shell.el
@@ -648,7 +648,7 @@ command again."
              (setcar ds dir))
         (setq msg (concat msg (directory-file-name dir) " "))
         (setq ds (cdr ds))))
-    (message msg)))
+    (message "%s" msg)))
 
 (defun shell-forward-command (&optional arg)
   "Move forward across ARG shell command(s).  Does not cross lines.