--- a/RegressionTests__DelayTest.st	Thu May 24 00:36:05 2001 +0200
+++ b/RegressionTests__DelayTest.st	Thu May 24 00:36:46 2001 +0200
@@ -9,6 +9,7 @@
 	category:'Tests-Regression'
 !
 
+
 !DelayTest methodsFor:'tests'!
 
 test1
@@ -17,7 +18,7 @@
     [
         n := 0.
         [n < 10] whileTrue:[
-           Delay waitForSeconds:1.
+           Delay waitForSeconds:0.1.
            Transcript showCR:n.
            n := n + 1.
         ]
@@ -25,11 +26,11 @@
 
     self assert:(n == nil).
 
-    Delay waitForSeconds:1.
+    Delay waitForSeconds:0.1.
 
     self assert:(n == 0).
 
-    Delay waitForSeconds:15.
+    Delay waitForSeconds:1.5.
 
     self assert:(n == 10).
 
@@ -44,14 +45,14 @@
     [
         n := 0.
         [n < 10] whileTrue:[
-           Delay waitForSeconds:1.
+           Delay waitForSeconds:0.1.
            Transcript showCR:n.
            n := n + 1.
         ]
     ] forkAt:(Processor activePriority + 1).
 
     self assert:(n == 0).
-    Delay waitForSeconds:11.
+    Delay waitForSeconds:1.1.
     self assert:(n == 10).
 
     "
@@ -59,3 +60,8 @@
     "
 ! !
 
+!DelayTest class methodsFor:'documentation'!
+
+version
+    ^ '$Header$'
+! !