Index: ECONimpl/PM/Maatwerk/AppsConverter/AppsNaarEcon/Tax.cls.xml
===================================================================
diff -u -r40706 -r40717
--- ECONimpl/PM/Maatwerk/AppsConverter/AppsNaarEcon/Tax.cls.xml	(.../Tax.cls.xml)	(revision 40706)
+++ ECONimpl/PM/Maatwerk/AppsConverter/AppsNaarEcon/Tax.cls.xml	(.../Tax.cls.xml)	(revision 40717)
@@ -47,8 +47,8 @@
 <Private>1</Private>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	New Code, Iterator, Property
-	#dim PropertyList As %ListOfDataTypes = ##class(TECH.ClassUtils).GeefProperties($classname(Kenmerken))
+	New Code, Iterator, Property, PropertyList
+	Set PropertyList = ##class(TECH.ClassUtils).GeefProperties($classname(Kenmerken))
 	Set Iterator = ##class(TECH.ListIterator).%New(PropertyList)
 	While Iterator.HasNext() {
 		Set Property = ##class(%CompiledProperty).%OpenId($classname(Kenmerken)_":"_Iterator.Next())
Index: ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Tax.cls.xml
===================================================================
diff -u -r40706 -r40717
--- ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Tax.cls.xml	(.../Tax.cls.xml)	(revision 40706)
+++ ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Tax.cls.xml	(.../Tax.cls.xml)	(revision 40717)
@@ -46,8 +46,8 @@
 <Private>1</Private>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	New Code, Iterator, Property
-	#dim PropertyList As %ListOfDataTypes = ##class(TECH.ClassUtils).GeefProperties($classname(TaxKenmerken))
+	New Code, Iterator, Property, PropertyList
+	Set PropertyList = ##class(TECH.ClassUtils).GeefProperties($classname(TaxKenmerken))
 	Set Iterator = ##class(TECH.ListIterator).%New(PropertyList)
 	While Iterator.HasNext() {
 		Set Property = ##class(%CompiledProperty).%OpenId($classname(TaxKenmerken)_":"_Iterator.Next())
Index: ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Lbx.cls.xml
===================================================================
diff -u -r40706 -r40717
--- ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Lbx.cls.xml	(.../Lbx.cls.xml)	(revision 40706)
+++ ECONimpl/PM/Maatwerk/AppsConverter/EconNaarApps/Lbx.cls.xml	(.../Lbx.cls.xml)	(revision 40717)
@@ -125,8 +125,8 @@
 <Private>1</Private>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	New Code, Iterator, Property
-	#dim PropertyList As %ListOfDataTypes = ##class(TECH.ClassUtils).GeefProperties($classname(LbxKenmerken))
+	New Code, Iterator, Property, PropertyList
+	Set PropertyList = ##class(TECH.ClassUtils).GeefProperties($classname(LbxKenmerken))
 	Set Iterator = ##class(TECH.ListIterator).%New(PropertyList)
 	While Iterator.HasNext() {
 		Set Property = ##class(%CompiledProperty).%OpenId($classname(LbxKenmerken)_":"_Iterator.Next())