Index: vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Save/TestVereisteVelden.cls.xml
===================================================================
diff -u -r45941 -r45942
--- vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Save/TestVereisteVelden.cls.xml	(.../TestVereisteVelden.cls.xml)	(revision 45941)
+++ vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Save/TestVereisteVelden.cls.xml	(.../TestVereisteVelden.cls.xml)	(revision 45942)
@@ -67,7 +67,7 @@
 <Implementation><![CDATA[
 	Set Product = ##class(DOM.PM.impl.DataM.DataMProduct).%New(..#ProductId)
 	
-	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("SubGroep is vereist.")
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Subgroep is vereist.")
 	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
 	
 	Do Product.Save()
Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r45941 -r45942
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45941)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45942)
@@ -110,8 +110,8 @@
 	Do ..Valideer()
 	
 	#dim NodeIndex As %String
-	for NodeIndex = 0,1,2,3,15,"I1","J","G" {
-		do $method($property($this,"Data"_NodeIndex),"Save")
+	For NodeIndex = 0,1,2,3,15,"I1","J","G" {
+		Do $method($property($this,"Data"_NodeIndex),"Save")
 	}
 ]]></Implementation>
 </Method>
@@ -709,7 +709,7 @@
 	Do:'$Length(..GeefLeverancierID()) Messages.Insert("LeverancierId is vereist.")
 	Do:'$Length(..GeefHoofdGroep()) Messages.Insert("Hoofdgroep is vereist.")
 	Do:'$Length(..GeefGroep()) Messages.Insert("Groep is vereist.")
-	Do:'$Length(..GeefSubGroep()) Messages.Insert("SubGroep is vereist.")
+	Do:'$Length(..GeefSubGroep()) Messages.Insert("Subgroep is vereist.")
 	
 	Do:Messages.Count() ##class(TECH.Exceptions.InvalidInputException).Throw(##class(TECH.ListUtils).ListToPieces(Messages,$$$CRLF))
 ]]></Implementation>