Index: vhUnitTest/APPS/VKP/Maatwerk/ConfiguratorService/BewaarIngegevenKenmerken/TestExternPad.cls.xml
===================================================================
diff -u -r31382 -r46365
--- vhUnitTest/APPS/VKP/Maatwerk/ConfiguratorService/BewaarIngegevenKenmerken/TestExternPad.cls.xml	(.../TestExternPad.cls.xml)	(revision 31382)
+++ vhUnitTest/APPS/VKP/Maatwerk/ConfiguratorService/BewaarIngegevenKenmerken/TestExternPad.cls.xml	(.../TestExternPad.cls.xml)	(revision 46365)
@@ -18,6 +18,22 @@
 <Private>1</Private>
 </Property>
 
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestCase:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ##super(aTestCase)	
+	do ..VerwijderData()
+]]></Implementation>
+</Method>
+
+<Method name="OnAfterOneTest">
+<FormalSpec>aTestCase:%String</FormalSpec>
+<Implementation><![CDATA[
+	do ..VerwijderData()
+	do ##super(aTestCase)
+]]></Implementation>
+</Method>
+
 <Method name="TestVanHoeckeBewaarEnOverschrijven">
 <Implementation><![CDATA[
 	do ##class(vhUnitTest.UnitTestUsers).MaakOVTestUser()
@@ -105,22 +121,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="OnBeforeOneTest">
-<FormalSpec>aTestCase:%String</FormalSpec>
-<Implementation><![CDATA[
-	do ##super(aTestCase)	
-	do ..VerwijderData()
-]]></Implementation>
-</Method>
-
-<Method name="OnAfterOneTest">
-<FormalSpec>aTestCase:%String</FormalSpec>
-<Implementation><![CDATA[
-	do ##super(aTestCase)
-	do ..VerwijderData()
-]]></Implementation>
-</Method>
-
 <Method name="VerwijderData">
 <Private>1</Private>
 <Implementation><![CDATA[
Index: vhUSER.mac.rou
===================================================================
diff -u -r39737 -r46365
--- vhUSER.mac.rou	(.../vhUSER.mac.rou)	(revision 39737)
+++ vhUSER.mac.rou	(.../vhUSER.mac.rou)	(revision 46365)
@@ -335,8 +335,7 @@
 		}
 	}
 	Catch {
-		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		
+		New Exception set Exception = ##class(TECH.ExceptionHandler).Catch()
 		#define AangepasteGebruikerID   "||1000"
 		Do ##class(vhLib.Logger).%New().WarningMail("LoggedInUser","De RuntimeContext geeft geen correcte VH-GebruikerID terug ("_GebruikerID_")."_" ReturnValue wordt aangepast naar "_$$$AangepasteGebruikerID_" .")
 		Set GebruikerID=$$$AangepasteGebruikerID