diff --git a/quicklisp/client.lisp b/quicklisp/client.lisp
index 0f1632f..4503ff3 100644
--- a/quicklisp/client.lisp
+++ b/quicklisp/client.lisp
@@ -34,7 +34,8 @@
         (setf systems (list systems)))
       (dolist (thing systems systems)
         (flet ((ql ()
-                 (autoload-system-and-dependencies thing :prompt prompt)))
+                 (autoload-system-and-dependencies (name thing)
+                                                   :prompt prompt)))
           (tagbody :start
              (restart-case (if verbose
                                (ql)
diff --git a/quicklisp/dist.lisp b/quicklisp/dist.lisp
index 72e21a7..5f6e949 100644
--- a/quicklisp/dist.lisp
+++ b/quicklisp/dist.lisp
@@ -382,6 +382,12 @@
 (defmethod system ((name string))
   (find-system (string-downcase name)))
 
+(defmethod name ((string string))
+  string)
+
+(defmethod name ((symbol symbol))
+  (symbol-name symbol))
+
 ;;;
 ;;; Dists
 ;;;