Index: vhUnitTest/DOM/PM/impl/DataM/DataMProductCreator/MaakProduct/Test.cls.xml
===================================================================
diff -u -r31511 -r31527
--- vhUnitTest/DOM/PM/impl/DataM/DataMProductCreator/MaakProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 31511)
+++ vhUnitTest/DOM/PM/impl/DataM/DataMProductCreator/MaakProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 31527)
@@ -61,17 +61,17 @@
 	merge ^KPR(..#ProductID)=^KPR(##class(DOM.PM.Maatwerk.enu.GenerischProductID).TAORV1())
 	
 	#dim Properties As %ListOfDataTypes = ##class(TECH.ClassUtils).GeefProperties(..LangtekstBewaarderPieces.%ClassName(1))
-	Set LangtekstBewaarderPiecesPropertieIt = ##class(TECH.ListIterator).%New(Properties)
-	While LangtekstBewaarderPiecesPropertieIt.HasNext() {
-		#dim Propertie As TECH.String = LangtekstBewaarderPiecesPropertieIt.Next()
-		#dim Pieces As TECH.String = $Property(..LangtekstBewaarderPieces, Propertie)
+	Set LangtekstBewaarderPiecesPropertyIt = ##class(TECH.ListIterator).%New(Properties)
+	While LangtekstBewaarderPiecesPropertyIt.HasNext() {
+		#dim Property As TECH.String = LangtekstBewaarderPiecesPropertyIt.Next()
+		#dim Pieces As TECH.String = $Property(..LangtekstBewaarderPieces, Property)
 		Set LangtekstPositiesIt = ##class(TECH.PiecesIterator).%New(Pieces, ",")
 		#dim i As TECH.Integer = 0
 		While LangtekstPositiesIt.HasNext() {
 			#dim Positie As TECH.String = LangtekstPositiesIt.Next()
 			#dim Node As %String = $Piece(Positie,".")
 			#dim Piece As %String = $Piece(Positie,".",2)
-			Set $P(^KPR(..#ProductID,Node), "\", Piece) = $$$UPPER($Extract(Propertie)_$I(i))
+			Set $P(^KPR(..#ProductID,Node), "\", Piece) = $$$UPPER($Extract(Property)_$I(i))
 		}
 	}
 ]]></Implementation>
Index: DOM/PM/impl/DataM/DataMProductCreator.cls.xml
===================================================================
diff -u -r31518 -r31527
--- DOM/PM/impl/DataM/DataMProductCreator.cls.xml	(.../DataMProductCreator.cls.xml)	(revision 31518)
+++ DOM/PM/impl/DataM/DataMProductCreator.cls.xml	(.../DataMProductCreator.cls.xml)	(revision 31527)
@@ -174,10 +174,10 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim Properties As %ListOfDataTypes = ##class(TECH.ClassUtils).GeefProperties(..LangtekstPieces.%ClassName(1))
-	Set LangtekstBewaarderPiecesPropertieIt = ##class(TECH.ListIterator).%New(Properties)
-	While LangtekstBewaarderPiecesPropertieIt.HasNext() {
-		#dim Propertie As TECH.String = LangtekstBewaarderPiecesPropertieIt.Next()
-		#dim Pieces As TECH.String = $Property(..LangtekstPieces, Propertie)
+	Set LangtekstBewaarderPiecesPropertyIt = ##class(TECH.ListIterator).%New(Properties)
+	While LangtekstBewaarderPiecesPropertyIt.HasNext() {
+		#dim Property As TECH.String = LangtekstBewaarderPiecesPropertyIt.Next()
+		#dim Pieces As TECH.String = $Property(..LangtekstPieces, Property)
 		Set LangtekstPositiesIt = ##class(TECH.PiecesIterator).%New(Pieces, ",")
 		While LangtekstPositiesIt.HasNext() {
 			#dim Positie As TECH.String = LangtekstPositiesIt.Next()