--- a/TestCase.st	Wed Apr 03 15:27:18 2013 +0200
+++ b/TestCase.st	Wed Apr 03 15:53:36 2013 +0200
@@ -665,9 +665,8 @@
                 result := TestResult stateFail.
             ].
             "/ debug
-            con := thisContext findNextContextWithSelector:testSelector or:nil or:nil.
             Debugger 
-                enter:con
+                enter:ex raiseContext
                 withMessage:(ex description)
                 mayProceed:true.
             ex proceed. 
@@ -898,11 +897,11 @@
 !TestCase class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.93 2013-04-03 13:25:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.94 2013-04-03 13:53:36 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.93 2013-04-03 13:25:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestCase.st,v 1.94 2013-04-03 13:53:36 cg Exp $'
 !
 
 version_SVN