From 039f49a02e0b15a89cf3568fa936626babc75c2b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Fri, 17 Feb 2017 19:04:45 +0100
Subject: [PATCH] run-program: windows: sanitize args

---
 src/c/unixsys.d | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/c/unixsys.d b/src/c/unixsys.d
index 81fd87582..cabc76723 100644
--- a/src/c/unixsys.d
+++ b/src/c/unixsys.d
@@ -603,6 +603,8 @@ si_run_program_internal(cl_object command, cl_object argv,
     /* Command is passed as is from argv. It is responsibility of
        higher level interface to decide, whenever arguments should be
        quoted or left as-is. */
+    argv = si_copy_to_simple_base_string(argv);
+    argv = ecl_null_terminated_base_string(argv);
     ok = CreateProcess(NULL, argv->base_string.self,
                        NULL, NULL, /* lpProcess/ThreadAttributes */
                        TRUE, /* Inherit handles (for files) */