Index: vhUnitTest/TestCase.cls.xml
===================================================================
diff -u -r10 -r320
--- vhUnitTest/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 10)
+++ vhUnitTest/TestCase.cls.xml	(.../TestCase.cls.xml)	(revision 320)
@@ -46,6 +46,8 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	set %VarsInMemoryBefore = 0
+	/// JBL : om vorige niet opgevangen exceptions niet te krijgen in huidige test, deze leeg maken.
+	Set %Exception = "" 
 	set Var = "%" for  set Var = $order(@Var) quit:Var=""  if ..ValidVar(Var) set %VarsInMemoryBefore=$i(%VarsInMemoryBefore)
 	
 	Quit $$$OK