diff --git a/uiop/common-lisp.lisp b/uiop/common-lisp.lisp
index 6c7309909b54138a96e01d4a6834d9caaecf85fe..34d7e0cfe35d21c029a37dbc27ebc57aa21c4be0 100644
--- a/uiop/common-lisp.lisp
+++ b/uiop/common-lisp.lisp
@@ -52,7 +52,7 @@
   (unless (fboundp 'external-process-wait)
     (in-development-mode
      (defun external-process-wait (proc)
-       (when (and (external-process-pid proc) (eq (external-process-:%status proc) :running))
+       (when (and (external-process-pid proc) (eq (external-process-%status proc) :running))
          (with-interrupts-enabled
              (wait-on-semaphore (external-process-completed proc))))
        (values (external-process-%exit-code proc)