diff --git a/src/cmp/cmpmain.lsp b/src/cmp/cmpmain.lsp
index 7cf44a595..0e15192e7 100644
--- a/src/cmp/cmpmain.lsp
+++ b/src/cmp/cmpmain.lsp
@@ -20,7 +20,7 @@
   `(progn ,@body))
 
 (defun safe-system (string)
-  (cmpnote "Invoking external command:~%;;; ~A~%" string)
+  (cmpnote "Invoking external command:~%;;; ~A" string)
   (let ((result (si:system string)))
     (unless (zerop result)
       (cerror "Continues anyway."