Index: vhUnitTest/TECH/Exceptions/Exception/ToString/Test.cls.xml
===================================================================
diff -u -r1942 -r1985
--- vhUnitTest/TECH/Exceptions/Exception/ToString/Test.cls.xml	(.../Test.cls.xml)	(revision 1942)
+++ vhUnitTest/TECH/Exceptions/Exception/ToString/Test.cls.xml	(.../Test.cls.xml)	(revision 1985)
@@ -3,12 +3,23 @@
 <Class name="vhUnitTest.TECH.Exceptions.Exception.ToString.Test">
 <Super>vhUnitTest.TestCase</Super>
 
+<Property name="MockSystemAPI">
+<Type>vhTest.Mock.TECH.System.SystemAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="Test1InnerExceptie">
 <Implementation><![CDATA[
+	Set ..MockSystemAPI = ##class(vhTest.Mock.TECH.System.SystemAPI).MockInstance()
+	Do ..MockSystemAPI.IndienMethodCall( "GeefStackTrace", 1 ).DanReturn( "Stacktrace" )
+	
 	#dim Exception As TECH.Exceptions.GeneralErrorException = ##class(TECH.Exceptions.GeneralErrorException).%New($$$DummyString)
 	#dim InnerExceptie As TECH.Exceptions.BaseException = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"ExceptieString")
 	Do Exception.VoegToeInnerExceptie(InnerExceptie)
 	do ..DataExporteerder.ExporteerString(..GeefExceptieString(Exception),"Test1InnerExceptie.txt")
+	
+	Do ##class(TECH.Context).Instance().PopSystemAPIClassName()
+	
 	do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
 ]]></Implementation>
 </Method>
@@ -43,9 +54,14 @@
 <FormalSpec>Aantal:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	Set ..MockSystemAPI = ##class(vhTest.Mock.TECH.System.SystemAPI).MockInstance()
+	Do ..MockSystemAPI.IndienMethodCall( "GeefStackTrace", 1 ).DanReturn( "Stacktrace" )
+	
 	#dim Exceptie As TECH.Exceptions.Exceptie = ..GeefExceptieMetOpgegevenAantalInnerExcepties(Aantal)
 	#dim Resultaat As %String = ..GeefExceptieString(Exceptie)
 
+	Do ##class(TECH.Context).Instance().PopSystemAPIClassName()
+	
 	do ..DataExporteerder.ExporteerString(..GeefExceptieString(Exceptie),"AssertVoorAantalInnerExcepties" _ Aantal _ ".txt")
 	do $$$AssertCorrectGemaakteBestanden(..GeefBestandLocatie())
 ]]></Implementation>
@@ -123,6 +139,12 @@
 	Do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer()
 ]]></Implementation>
 </Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[	Do ##super(aTestName)
+]]></Implementation>
+</Method>
 </Class>