Index: Tools/Test/TestCase.cls.xml
===================================================================
diff -u -r3040 -r3041
--- Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 3040)
+++ Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 3041)
@@ -134,10 +134,10 @@
 <Method name="OnBeforeOneTest">
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
+	do ##class(Tools.Test.TestCase.OnBeforeOneTest).%New().Exec(..Debug)
 	do ..Checker.Store()
 	set ..VerwachteExceptie = ""
 	do ..SetRuntimeContext()
-	do ##class(Tools.Test.TestCase.OnBeforeOneTest).%New().Exec(..Debug)
 ]]></Implementation>
 </Method>