diff --git a/uiop/image.lisp b/uiop/image.lisp
index 6cbfd613816ef5d5a2e87a1dd623ec68e5ea1d0b..ff40573b3268a7cd04bd42fe09adcadcd0a9814c 100644
--- a/uiop/image.lisp
+++ b/uiop/image.lisp
@@ -227,7 +227,7 @@ depending on whether *LISP-INTERACTION* is set, enter debugger or die"
     #+abcl ext:*command-line-argument-list* ; Use 1.0.0 or later!
     #+allegro (sys:command-line-arguments) ; default: :application t
     #+clisp (coerce (ext:argv) 'list)
-    #+clozure (ccl::command-line-arguments)
+    #+clozure ccl:*command-line-argument-list*
     #+(or cmu scl) extensions:*command-line-strings*
     #+ecl (loop :for i :from 0 :below (si:argc) :collect (si:argv i))
     #+gcl si:*command-args*