2 files changed, 6 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index e9dc9c2e..94667859 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2014-03-14  Kaz Kylheku  <kaz@kylheku.com>
 
+	* stream.c (run): Fix MinGW build failures. The run function doesn't
+	work right with arguments, though: the win command line is broken.
+
+2014-03-14  Kaz Kylheku  <kaz@kylheku.com>
+
 	* eval.c (eval_init): Make seed argument optional in make-random-state.
 
 	* rand.c (make_random_state): Do argument defaulting on seed.
diff --git a/stream.c b/stream.c
index 1744c28c..14ec811b 100644
--- a/stream.c
+++ b/stream.c
@@ -2341,7 +2341,7 @@ static val run(val name, val args)
 #else
 static val run(val command, val args)
 {
-  val win_cmdline = win_make_cmdline(cons(name, args));
+  val win_cmdline = win_make_cmdline(cons(command, default_bool_arg(args)));
   return sh(win_cmdline);
 }
 #endif