--- a/RegressionTests__DelayTest.st	Fri Mar 29 11:56:40 2019 +0100
+++ b/RegressionTests__DelayTest.st	Fri Mar 29 12:00:48 2019 +0100
@@ -118,24 +118,24 @@
 
     longDelay := Delay forSeconds:1000000.
     [
-        Delay waitForSeconds:1.
+        Delay waitForSeconds:1.5.
         longDelay resume.
     ] fork.
 
-    waitTime := Time secondsToRun:[
+    waitTime := Time millisecondsToRun:[
         "never wait longer than 10 seconds"
         [
             longDelay wait.
         ] valueWithWatchDog:[ watchDogBite := true] afterMilliseconds:10000.
     ].
     self assert:watchDogBite ~~ true.
-    self assert:waitTime < 2.
+    self assert:waitTime < 2000.
 
     "
      self basicNew test4
     "
 
-    "Modified: / 28-03-2019 / 10:59:21 / Claus Gittinger"
+    "Modified: / 29-03-2019 / 12:00:35 / Claus Gittinger"
 ! !
 
 !DelayTest class methodsFor:'documentation'!