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