diff --git a/ql-setup.lisp b/ql-setup.lisp
index 66d44de..331b635 100644
--- a/ql-setup.lisp
+++ b/ql-setup.lisp
@@ -38,6 +38,8 @@
 (defvar *quicklisp-home*
   (make-pathname :name nil :type nil
                  :defaults (let ((qlhome "~/quicklisp/"))
+                             (when (boundp 'cl-user::*quicklisp-home*)
+                               (setf qlhome cl-user::*quicklisp-home*))
                              (if (probe-file qlhome)
                                  qlhome
                                  (error "Quicklisp not installed to