--- a/RegressionTests__DebuggerTest.st	Fri Nov 14 12:03:32 2003 +0100
+++ b/RegressionTests__DebuggerTest.st	Fri Nov 14 12:20:05 2003 +0100
@@ -31,6 +31,12 @@
     "Created: / 11.11.2003 / 17:21:55 / cg"
 ! !
 
+!DebuggerTest methodsFor:'helpers'!
+
+step:nr
+    Transcript show:'step '; showCR:nr
+! !
+
 !DebuggerTest methodsFor:'tests'!
 
 testBlockVars_01
@@ -80,6 +86,26 @@
      self run:#testBlockVars_02
      self new testBlockVars_02
     "
+!
+
+testSteppingInEnsureBlock_01
+    self halt:'proceed stepping with "next"-Button'.
+    " 
+     you should be able to single-step through all step-sends...
+    "
+    self step:1.
+    [
+        self step:2.
+        self step:3.
+    ] ensure:[
+        self step:4
+    ].
+    self step:5
+
+    "
+     self run:#testSteppingInEnsureBlock_01
+     self new testSteppingInEnsureBlock_01
+    "
 ! !
 
 !DebuggerTest class methodsFor:'documentation'!