diff --git a/lisp/find-lisp.el b/lisp/find-lisp.el
index 18e30ef37eb..0dd35f23514 100644
--- a/lisp/find-lisp.el
+++ b/lisp/find-lisp.el
@@ -95,7 +95,7 @@ PARENT is the parent directory of DIR."
 	   (string= dir "..")
 	   ;; Skip directories which are symlinks
 	   ;; Easy way to circumvent recursive loops
-	   (file-symlink-p dir))))
+	   (file-symlink-p (expand-file-name dir parent)))))
 
 (defun find-lisp-default-file-predicate  (file dir)
   "True if FILE matches `find-lisp-regexp'.