--- a/RegressionTests__DelayTest.st	Wed Jul 06 21:51:05 2011 +0200
+++ b/RegressionTests__DelayTest.st	Sun Jul 31 18:45:52 2011 +0200
@@ -72,6 +72,29 @@
     "
      self basicNew test2
     "
+!
+
+test3_longDelay
+    "in stx6.2.1, the following does not wait, due to an overflow in
+     the millisecond computation..."
+
+    |stillWaiting watchDogBite|
+
+    [
+        watchDogBite := false.
+        stillWaiting := true.
+        Delay waitForSeconds:1000000.
+        stillWaiting := false.
+    ] valueWithWatchDog:[ watchDogBite := true] afterMilliseconds:1000.
+
+    self assert:stillWaiting.
+    self assert:watchDogBite.
+
+    "
+     self basicNew test3_longDelay
+    "
+
+    "Created: / 31-07-2011 / 18:44:53 / cg"
 ! !
 
 !DelayTest class methodsFor:'documentation'!