diff --git a/clhs-use-local.el b/clhs-use-local.el
index 4376f5e..d57ceb9 100644
--- a/clhs-use-local.el
+++ b/clhs-use-local.el
@@ -50,7 +50,7 @@
        quicklisp-clhs-inhibit-symlink-relative-p))
 
 (defun quicklisp-clhs-ensure-symbolic-link (symlink-location path)
-  (let ((current-path (file-symlink-p symlink-location)))
+  (let ((current-path (concat (file-symlink-p symlink-location) "/")))
     (when (or (not current-path) (not (string-equal current-path path)))
       (make-symbolic-link path symlink-location t))))