diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp
index 9f08220b94d41b4094b3cacfecc3cdcddf6b54a3..980fdbb3e6fadf294b3dfbb4e19bd28feceeae05 100644
--- a/uiop/run-program.lisp
+++ b/uiop/run-program.lisp
@@ -556,7 +556,7 @@ It returns a process-info plist with possible keys:
       (declare (ignorable process))
       #+(or allegro lispworks) process
       #+clasp (si:external-process-pid process)
-      #+clozure (ccl::external-process-pid process)
+      #+clozure (ccl:external-process-id process)
       #+ecl (ext:external-process-pid process)
       #+(or cmu scl) (ext:process-pid process)
       #+mkcl (mkcl:process-id process)