--- a/RegressionTests__DelayTest.st	Thu Mar 28 09:42:43 2019 +0100
+++ b/RegressionTests__DelayTest.st	Thu Mar 28 10:59:37 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -27,7 +29,7 @@
 
     "/ sorry, but the test machines are much too slow, give them more time
 "/    delayMultiplier := 1.
-    delayMultiplier := 10.
+    delayMultiplier := 2.
 
     [
         n := 0.
@@ -53,6 +55,7 @@
     "
 
     "Modified: / 10-01-2012 / 19:25:22 / cg"
+    "Modified: / 28-03-2019 / 10:57:26 / Claus Gittinger"
 !
 
 test2
@@ -60,7 +63,7 @@
 
     "/ sorry, but the test machines are much too slow, give them more time
 "/    delayMultiplier := 1.
-    delayMultiplier := 10.   
+    delayMultiplier := 2.   
 
     verbose := false.
     n := 0.
@@ -81,6 +84,7 @@
     "
 
     "Modified: / 10-01-2012 / 19:25:35 / cg"
+    "Modified: / 28-03-2019 / 10:57:36 / Claus Gittinger"
 !
 
 test3_longDelay
@@ -90,11 +94,11 @@
     |stillWaiting watchDogBite|
 
     [
-	watchDogBite := false.
-	stillWaiting := true.
-	Delay waitForSeconds:1000000.
-	stillWaiting := false.
-    ] valueWithWatchDog:[ watchDogBite := true] afterMilliseconds:1000.
+        watchDogBite := false.
+        stillWaiting := true.
+        Delay waitForSeconds:1000000.
+        stillWaiting := false.
+    ] valueWithWatchDog:[ watchDogBite := true] afterMilliseconds:500.
 
     self assert:stillWaiting.
     self assert:watchDogBite.
@@ -104,6 +108,7 @@
     "
 
     "Created: / 31-07-2011 / 18:44:53 / cg"
+    "Modified: / 28-03-2019 / 10:57:49 / Claus Gittinger"
 !
 
 test4
@@ -113,22 +118,24 @@
 
     longDelay := Delay forSeconds:1000000.
     [
-	Delay waitForSeconds:2.
-	longDelay resume.
+        Delay waitForSeconds:1.
+        longDelay resume.
     ] fork.
 
     waitTime := Time secondsToRun:[
-	"never wait longer than 10 seconds"
-	[
-	    longDelay wait.
-	] valueWithWatchDog:[ watchDogBite := true] afterMilliseconds:10000.
+        "never wait longer than 10 seconds"
+        [
+            longDelay wait.
+        ] valueWithWatchDog:[ watchDogBite := true] afterMilliseconds:10000.
     ].
     self assert:watchDogBite ~~ true.
-    self assert:waitTime < 10.
+    self assert:waitTime < 2.
 
     "
      self basicNew test4
     "
+
+    "Modified: / 28-03-2019 / 10:59:21 / Claus Gittinger"
 ! !
 
 !DelayTest class methodsFor:'documentation'!