1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/comint.el b/lisp/comint.el
index dfe240f156a..849345ef205 100644
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -598,7 +598,7 @@ buffer.  The hook `comint-exec-hook' is run after each exec."
           (if (getenv "EMACS") nil (list "EMACS=t"))
           process-environment))
         (default-directory
-          (if (file-directory-p default-directory)
+          (if (file-accessible-directory-p default-directory)
               default-directory
             "/")))
     (apply 'start-process name buffer command switches)))