diff --git a/src/cmp/cmpos-run.lsp b/src/cmp/cmpos-run.lsp
index 648a8f449..e54bf266c 100755
--- a/src/cmp/cmpos-run.lsp
+++ b/src/cmp/cmpos-run.lsp
@@ -42,8 +42,8 @@
                 (args `(,@(cdr program) ,@args))
                 (program (car program)))
            (with-current-directory
-             #-windows(si:run-program-inner program args nil)
-             #+windows(si:system (format nil "~A~{ ~A~}" program args))))))
+             #-windows (nth-value 1 (si:run-program-inner program args nil))
+             #+windows (si:system (format nil "~A~{ ~A~}" program args))))))
     (cond ((null result)
            (cerror "Continues anyway."
                    "Unable to execute:~%(RUN-PROGRAM ~S ~S)"