diff --git a/src/cmp/cmpos-run.lsp b/src/cmp/cmpos-run.lsp
index 49f660515b705e7a4281d2b106c8475a00c1604d..b824409ac84b774ae91fd0c82fe07402c6db41a8 100755
--- a/src/cmp/cmpos-run.lsp
+++ b/src/cmp/cmpos-run.lsp
@@ -54,7 +54,10 @@
   (cmpnote "Invoking external command:~%  ~A ~{~A ~}" program args)
   (multiple-value-bind (stream result process)
       (let* ((*standard-output* ext:+process-standard-output+)
-             (*error-output* ext:+process-error-output+))
+             (*error-output* ext:+process-error-output+)
+             (program (split-program-options program))
+             (args `(,@(cdr program) ,@args))
+             (program (car program)))
         (with-current-directory
             #-(and cygwin (not ecl-min))
             (ext:run-program program args :input nil :output t :error t :wait t)