[eval] fix array bounds for Process args

closes #8235

src/macro/eval/evalStdLib.ml

@@ -3133,7 +3133,7 @@ let init_constructors builtins =
 				let cmd = decode_string cmd in
 				let args = match args with
 					| VNull -> None
-					| VArray va -> Some (Array.map decode_string va.avalues)
+					| VArray va -> Some (Array.map decode_string (Array.sub va.avalues 0 va.alength))
 					| _ -> unexpected_value args "array"
 				in
 				encode_instance key_sys_io__Process_NativeProcess ~kind:(IProcess (try Process.run cmd args with Failure msg -> exc_string msg))