Index: vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerkenLegacy.cls.xml
===================================================================
diff -u -r54023 -r54669
--- vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerkenLegacy.cls.xml	(.../TBXKenmerkenLegacy.cls.xml)	(revision 54023)
+++ vhTest/Utils/DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerkenLegacy.cls.xml	(.../TBXKenmerkenLegacy.cls.xml)	(revision 54669)
@@ -3,11 +3,18 @@
 <Class name="vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy">
 <Super>TECH.RegisteredObject</Super>
 
+<Method name="LegeKenmerken">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).%New()
+]]></Implementation>
+</Method>
+
 <Method name="StandaardLade">
 <ClassMethod>1</ClassMethod>
 <ReturnType>DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy</ReturnType>
 <Implementation><![CDATA[
-	Set Kenmerken = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).%New()
+	#dim Kenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy = ..LegeKenmerken()
 	
 	Set Kenmerken.ItemASM = ""
 	Set Kenmerken.ItemBGRP = "X"