--- a/RegressionTests__DelayTest.st	Fri Mar 29 12:00:48 2019 +0100
+++ b/RegressionTests__DelayTest.st	Fri Mar 29 12:04:23 2019 +0100
@@ -112,13 +112,13 @@
 !
 
 test4
-    "check that we can wake up early"
+    "check that we can wake up early and the watchdog does not bite"
 
     |longDelay waitTime watchDogBite|
 
     longDelay := Delay forSeconds:1000000.
     [
-        Delay waitForSeconds:1.5.
+        Delay waitForSeconds:0.5.
         longDelay resume.
     ] fork.
 
@@ -126,16 +126,39 @@
         "never wait longer than 10 seconds"
         [
             longDelay wait.
-        ] valueWithWatchDog:[ watchDogBite := true] afterMilliseconds:10000.
+        ] valueWithWatchDog:[ watchDogBite := true] afterMilliseconds:3000.
     ].
     self assert:watchDogBite ~~ true.
-    self assert:waitTime < 2000.
+    self assert:waitTime < 600.
 
     "
      self basicNew test4
     "
 
-    "Modified: / 29-03-2019 / 12:00:35 / Claus Gittinger"
+    "Modified: / 29-03-2019 / 12:03:32 / Claus Gittinger"
+!
+
+test5
+    "check that a watchdog does bark"
+
+    |longDelay waitTime watchDogBite|
+
+    longDelay := Delay forSeconds:1000000.
+
+    waitTime := Time millisecondsToRun:[
+        "never wait longer than 10 seconds"
+        [
+            longDelay wait.
+        ] valueWithWatchDog:[ watchDogBite := true] afterMilliseconds:500.
+    ].
+    self assert:watchDogBite == true.
+    self assert:waitTime < 600.
+
+    "
+     self basicNew test5
+    "
+
+    "Created: / 29-03-2019 / 12:02:46 / Claus Gittinger"
 ! !
 
 !DelayTest class methodsFor:'documentation'!