Index: Tools/Test/TestCase.cls.xml
===================================================================
diff -u -r1349 -r1495
--- Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 1349)
+++ Tools/Test/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 1495)
@@ -114,13 +114,16 @@
 
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
- 	 set ..StartTime = ##class(TECH.DateTime).CurrentTimeStamp()
- 	 Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("MiniMail_VoegServerPrefixToe",0,..#Applicatie)
+	do ##class(Tools.Test.TestCase.OnBeforeAllTests).%New().Exec(..Debug)
+ 	set ..StartTime = ##class(TECH.DateTime).CurrentTimeStamp()
+ 	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("MiniMail_VoegServerPrefixToe",0,..#Applicatie)
 ]]></Implementation>
 </Method>
 
 <Method name="OnAfterAllTests">
-<Implementation><![CDATA[	Do ..SchakelInAlleEvents()
+<Implementation><![CDATA[
+	do ##class(Tools.Test.TestCase.OnAfterAllTests).%New().Exec(..Debug)
+	Do ..SchakelInAlleEvents()
 ]]></Implementation>
 </Method>
 
@@ -129,6 +132,7 @@
 <Implementation><![CDATA[
 	set ..VerwachteExceptie = ""
 	do ..SetRuntimeContext()
+	do ##class(Tools.Test.TestCase.OnBeforeOneTest).%New().Exec(..Debug)
 	do ..VariableChecker.StoreVariabelenInMemory()
 ]]></Implementation>
 </Method>
@@ -137,6 +141,7 @@
 <FormalSpec>aTestName:%String</FormalSpec>
 <Implementation><![CDATA[
 	do ..ResetRuntimeContext()
+	do ##class(Tools.Test.TestCase.OnAfterOneTest).%New().Exec(..Debug)
 	do ..VariableChecker.CheckVariabelenInMemory()
 	do ..CheckOpenExceptions()
 	do ..CheckOpenTransactions()