diff --git a/run.lisp b/run.lisp
index 788d770aab2ed6259cedb03214cb6abae76ab0ee..991184cc0f53e124c451fa67ba3ec7fc1bf296ba 100644
--- a/run.lisp
+++ b/run.lisp
@@ -69,9 +69,10 @@
 (defun run (cmd &rest keys
             &key on-error time show host (output t op) (error-output t eop) &allow-other-keys)
   "run command CMD"
-  (apply 'run/nil `(,@(unless op `(:output ,output))
-                  ,@(unless eop `(:error-output ,error-output))
-                  ,@keys)))
+  (declare (ignore on-error time show host))
+  (apply 'run/nil cmd `(,@(unless op `(:output ,output))
+                        ,@(unless eop `(:error-output ,error-output))
+                        ,@keys)))
 
 (defun run/s (cmd &rest keys &key on-error time show host)
   "run command CMD, return its standard output results as a string."