--- a/OSProcess.st	Tue May 22 10:48:26 2018 +0200
+++ b/OSProcess.st	Tue May 22 12:04:11 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "{ Package: 'stx:libbasic' }"
 
 "{ NameSpace: Smalltalk }"
@@ -695,6 +693,11 @@
     "start the command"
     finishSema := EventSemaphore new.
 
+    "/ UserPreferences current logExecutedOSCommands:true
+    UserPreferences current logExecutedOSCommands ifTrue:[
+        Transcript showCR:('OS command: ',self startCommand).  
+    ].
+    
     Processor 
         monitor:[
             pid := OperatingSystem