diff --git a/src/code/run-program.lisp b/src/code/run-program.lisp
index 9a582d2..5878099 100644
--- a/src/code/run-program.lisp
+++ b/src/code/run-program.lisp
@@ -605,7 +605,10 @@ status slot."
                        (t
                         (princ arg str)))
                  (when rest
-                   (write-char #\Space str)))))))
+                   (write-char #\Space str)
+                   (when (stringp rest)
+                     (write-string rest str)
+                     (return))))))))
 
 ;;; FIXME: There shouldn't be two semiredundant versions of the
 ;;; documentation. Since this is a public extension function, the
@@ -677,7 +680,8 @@ status slot."
      "RUN-PROGRAM creates a new process specified by the PROGRAM
 argument. ARGS are the standard arguments that can be passed to a
 program. For no arguments, use NIL (which means that just the
-name of the program is passed as arg 0).
+name of the program is passed as arg 0)."#+win32"
+ARGS can be a STRING to pass directly to the CreateProcess function.""
 
 The program arguments and the environment are encoded using the
 default external format for streams.