1 files changed, 1 insertions, 1 deletions

diff --git a/lisp/startup.el b/lisp/startup.el
index a3aafc7454f..69642d82ac4 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -304,7 +304,7 @@ from being initialized.")
 
 ;; This function is called from the subdirs.el file.
 (defun normal-top-level-add-to-load-path (dirs)
-  (let ((tail (member default-directory load-path)))
+  (let ((tail (member (directory-file-name default-directory) load-path)))
     (setcdr tail (append (mapcar 'expand-file-name dirs) (cdr tail)))))
 
 (defun normal-top-level ()