--- a/OSProcess.st	Tue Aug 01 17:43:45 2017 +0200
+++ b/OSProcess.st	Tue Aug 01 17:45:36 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:libbasic' }"
 
 "{ NameSpace: Smalltalk }"
@@ -604,7 +606,16 @@
 !OSProcess methodsFor:'waiting'!
 
 waitUntilFinished
-    ^ self waitUntilFinishedWithTimeout:nil
+
+    "wait with a veryy long timeout, 
+     in order that ProcessorScheduler>>#checkForEndOfDispatch recogizes
+     this waiting process as user process which is still alive.
+     The timout is meant to never occur!!"
+
+    ^ self waitUntilFinishedWithTimeout:60*60*24000
+
+    "Modified: / 01-08-2017 / 14:41:10 / stefan"
+    "Modified (comment): / 01-08-2017 / 17:15:55 / stefan"
 !
 
 waitUntilFinishedWithTimeout:timeout