diff --git a/quicklisp/client.lisp b/quicklisp/client.lisp
index 7b67834..073a95c 100644
--- a/quicklisp/client.lisp
+++ b/quicklisp/client.lisp
@@ -20,14 +20,15 @@
 (defun maybe-silence (silent stream)
   (or (and silent (make-broadcast-stream)) stream))
 
-(defgeneric quickload (systems &key verbose silent prompt explain &allow-other-keys)
+(defgeneric quickload (systems &key verbose silent prompt explain print-case &allow-other-keys)
   (:documentation
    "Load SYSTEMS the quicklisp way. SYSTEMS is a designator for a list
    of things to be loaded.")
   (:method (systems &key
             (prompt *quickload-prompt*)
             (silent nil)
-            (verbose *quickload-verbose*) &allow-other-keys)
+            (verbose *quickload-verbose*)
+            ((:print-case *print-case*) :upcase) &allow-other-keys)
     (let ((*standard-output* (maybe-silence silent *standard-output*))
           (*trace-output*    (maybe-silence silent *trace-output*)))
       (unless (consp systems)