--- a/RegressionTests__JavaScriptTests.st	Wed Apr 27 15:45:15 2005 +0200
+++ b/RegressionTests__JavaScriptTests.st	Wed Apr 27 15:47:52 2005 +0200
@@ -301,6 +301,27 @@
     "
 !
 
+testDoWhile06
+    self 
+        execute:'test(arg) {
+                    var n;
+
+                    n = 1;
+                    do 
+                        n += 1;
+                    while (n < 4);
+                    return n;
+                 }'
+        for:nil
+        arguments:#(5)
+        expect:4
+
+    "
+     self run:#testDoWhile06
+     self new testDoWhile06
+    "
+!
+
 testFor01
     self 
         execute:'test(arg) {