--- a/OSProcess.st	Mon Jul 02 19:55:42 2018 +0200
+++ b/OSProcess.st	Mon Jul 02 20:45:37 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:libbasic' }"
 
 "{ NameSpace: Smalltalk }"
@@ -189,10 +191,14 @@
 commandStringForProgramName:executableFile arguments:arrayOfStrings
     ^ String streamContents:[:s |
         s nextPutAll:(self possiblyQuoted:executableFile asFilename pathName).
-        arrayOfStrings do:[:eachArg |
-            s nextPutAll:(self possiblyQuoted:eachArg).
-        ].
+        arrayOfStrings notNil ifTrue:[
+            arrayOfStrings do:[:eachArg |
+                s nextPutAll:(self possiblyQuoted:eachArg).
+            ].
+        ]
     ]
+
+    "Modified: / 02-07-2018 / 20:45:15 / cg"
 !
 
 new
@@ -243,6 +249,14 @@
         command:(self commandStringForProgramName:executableFile arguments:arrayOfStrings);
         environment:stringDictionary;
         yourself
+
+    "
+     (self programName:'notepad.exe' arguments:#() initialEnvironment:nil)
+        showWindow:true;
+        startProcess
+    "
+
+    "Modified (comment): / 02-07-2018 / 20:33:02 / cg"
 ! !
 
 !OSProcess class methodsFor:'class initialization'!