diff --git a/lisp/info.el b/lisp/info.el
index b8e30fadef3..74bdef5b050 100644
--- a/lisp/info.el
+++ b/lisp/info.el
@@ -737,8 +737,9 @@ in `Info-file-supports-index-cookies-list'."
       (and path
 	   installation-directory
 	   (let ((dir (expand-file-name "info/" installation-directory)))
-	     (setq Info-directory-list (delete dir Info-directory-list))
-	     (push dir Info-directory-list)))
+	     (when (file-directory-p dir)
+	       (setq Info-directory-list (delete dir Info-directory-list))
+	       (push dir Info-directory-list))))
       ;; For a self-contained (ie relocatable) NS build, AFAICS we
       ;; always want the included info directory to be at the head of
       ;; the search path, unless it's already in INFOPATH somewhere.