Index: vhUnitTest/DOM/PM/TBXProduct/Calculator/Opvullijst.cls.xml
===================================================================
diff -u -r6986 -r6991
--- vhUnitTest/DOM/PM/TBXProduct/Calculator/Opvullijst.cls.xml	(.../Opvullijst.cls.xml)	(revision 6986)
+++ vhUnitTest/DOM/PM/TBXProduct/Calculator/Opvullijst.cls.xml	(.../Opvullijst.cls.xml)	(revision 6991)
@@ -1,7 +1,8 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="24">
+<Export generator="Cache" version="9">
 <Class name="vhUnitTest.DOM.PM.TBXProduct.Calculator.Opvullijst">
 <Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="TestGeefOpvullijstLengteGoed">
 <Description>
@@ -22,17 +23,17 @@
 <Method name="TestGeefOpvullijstLengteFout">
 <Implementation><![CDATA[
 	
-	try  {
-		do ##class(DOM.PM.TBXProduct.Calculator.Opvullijst).GeefOpvullijstLengte(625)
-		do $$$AssertFalse(1,"Waarde 625 is een ongeldige ingave")
-	}
-	catch {
-		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		do $$$AssertEquals(Exception.GeefExceptionCode(),"1005:InvalidInput")
-	}
+	Set $ZTRAP="onError"
+	do ##class(DOM.PM.TBXProduct.Calculator.Opvullijst).GeefOpvullijstLengte(625)
+	do $$$AssertFalse(1,"Waarde 625 is een ongeldige ingave")
+	Quit
+
+onError
+	Set $ZTRAP=""
+	Set Exception=##class(TECH.ExceptionHandler).Catch()
+	do $$$AssertEquals(Exception.GeefExceptionCode(),"1005:InvalidInput")
+	Quit
 ]]></Implementation>
 </Method>
 </Class>
-
-
 </Export>