--- a/RegressionTests__DelayTest.st	Thu Dec 07 09:46:20 2000 +0100
+++ b/RegressionTests__DelayTest.st	Thu Dec 07 09:49:14 2000 +0100
@@ -1,11 +1,26 @@
-|n|
+"{ Package: 'exept:regression' }"
+ 
+"{ NameSpace: RegressionTests }"
+ 
+Object subclass:#DelayTest
+        instanceVariableNames:''
+        classVariableNames:''
+        poolDictionaries:''
+        category:'Tests-Regression'
+!
+ 
+ 
+!DelayTest class methodsFor:'tests'!
+ 
+test1
+    |n|
 
-[
-    n := 0.
-    [true] whileTrue:[
-       Delay waitForSeconds:1.
-       Transcript showCR:n.
-       n := n + 1.
-    ]
-] forkAt:9.
-
+    [
+        n := 0.
+        [n < 10] whileTrue:[
+           Delay waitForSeconds:1.
+           Transcript showCR:n.
+           n := n + 1.
+        ]
+    ] forkAt:9.
+! !