diff --git a/run.lisp b/run.lisp
index 46f46a3cf4643cf7eabfa480d36fc12c26eb0dfb..a3f49afbd24e9353454fa321885d952dd27bf413 100644
--- a/run.lisp
+++ b/run.lisp
@@ -70,7 +70,7 @@
                :ignore-error-status t :output output :host host)
               (error-behaviour on-error))))
     (when show
-      (format *trace-output* "; ~S~%" cmd))
+      (format *trace-output* "; ~A~%" (print-process-spec cmd)))
     (process-time)))
 
 (defun run/s (cmd &rest keys &key on-error time show host)