diff --git a/uiop/run-program.lisp b/uiop/run-program.lisp
index 9a94fadabc0d0d1b71fa7ed0ccaf81fe1810c3ca..8c80ca942e53c366840ac77611f9000e4a334c0f 100644
--- a/uiop/run-program.lisp
+++ b/uiop/run-program.lisp
@@ -671,7 +671,9 @@ It returns a process-info plist with possible keys:
                            &key input output error-output ignore-error-status &allow-other-keys)
     ;; helper for RUN-PROGRAM when using %run-program
     #+(or abcl cormanlisp gcl (and lispworks os-windows) mcl mkcl xcl)
-    (error "Not implemented on this platform")
+    (progn
+      command keys input output error-output ignore-error-status ;; ignore
+      (error "Not implemented on this platform"))
     (assert (not (member :stream (list input output error-output))))
     (let* ((active-input-p (%active-io-specifier-p input))
            (active-output-p (%active-io-specifier-p output))