Index: DOM/PM/impl/ProductKenmerkenSet.cls.xml
===================================================================
diff -u -r1727 -r1743
--- DOM/PM/impl/ProductKenmerkenSet.cls.xml	(.../ProductKenmerkenSet.cls.xml)	(revision 1727)
+++ DOM/PM/impl/ProductKenmerkenSet.cls.xml	(.../ProductKenmerkenSet.cls.xml)	(revision 1743)
@@ -116,38 +116,32 @@
 		
 		Set Kenmerk = ##class(Prod.Kenmerk.DataDefinitie).OpenId(Identifier)
 		If ($IsObject(Kenmerk))
-		{
-			/// InstanceVersion checken
-			Set CheckInstanceVersion = Kenmerk.CheckInstanceVersion(InstanceVersion)
-			If ($$$ISERR(CheckInstanceVersion)){
-				Set ErrorMsg = "Kenmerk "_..KenmerkGroep_"||"_KenmerkNaam_" voor UnID "_..UnID_" is kon niet worden gesaved. "_$$ParseStatus^vhLib(CheckInstanceVersion)
-			}Else{			
-				// TO DO : 2011-06-09 : de check of iets gewijzigd is verplaatsen naar de persistente klasse : Prod.DataDefinitie
-				// Controleer of de nieuwe waarden verschillen
-				Set IsGewijzigd = (Waarden.Count() '= Kenmerk.Waarden.Count())
-				Set i = 0			
-				While ('IsGewijzigd) && (i < Kenmerk.Waarden.Count())
+		{		
+			// TO DO : 2011-06-09 : de check of iets gewijzigd is verplaatsen naar de persistente klasse : Prod.DataDefinitie
+			// Controleer of de nieuwe waarden verschillen
+			Set IsGewijzigd = (Waarden.Count() '= Kenmerk.Waarden.Count())
+			Set i = 0			
+			While ('IsGewijzigd) && (i < Kenmerk.Waarden.Count())
+			{
+				Set i = i + 1
+				Set IsGewijzigd = (Waarden.GetAt(i) '= Kenmerk.Waarden.GetAt(i))
+			}
+			/// end TO DO
+			
+			If (IsGewijzigd)
+			{
+				Do Kenmerk.Waarden.Clear()
+				Set Kenmerk.Waarden = ##class(TECH.ListUtils).CopyList(Waarden,Kenmerk.Waarden)
+				Set Kenmerk.IsEventRaiser = ..RaiseEvent //Indien bulk wijziging is mag dit geen event raisen en is aanroeper verantwoordelijk voor zelf het event te raisen.
+				Set Status = Kenmerk.Save(InstanceVersion)
+				If $$$ISERR(Status)
 				{
-					Set i = i + 1
-					Set IsGewijzigd = (Waarden.GetAt(i) '= Kenmerk.Waarden.GetAt(i))
+					Set ErrorMsg = "Kenmerk "_..KenmerkGroep_"||"_KenmerkNaam_" voor UnID "_..UnID_" kon niet worden gesaved.("_$$ParseStatus^vhLib(Status)_")"
+				}Else{
+					Set WaardenLijst = ##class(%ListOfDataTypes).%New()
+					Do ##class(TECH.ListUtils).CopyList(Kenmerk.Waarden,WaardenLijst)
+					Set Wijziging = ##class(TECH.Events.KenmerkModifiedEventData).%New(..UnID,..KenmerkGroep,KenmerkNaam,WaardenLijst)
 				}
-				/// end TO DO
-				
-				If (IsGewijzigd)
-				{
-					Do Kenmerk.Waarden.Clear()
-					Set Kenmerk.Waarden = ##class(TECH.ListUtils).CopyList(Waarden,Kenmerk.Waarden)
-					Set Kenmerk.IsEventRaiser = ..RaiseEvent //Indien bulk wijziging is mag dit geen event raisen en is aanroeper verantwoordelijk voor zelf het event te raisen.
-					Set Status = Kenmerk.Save()
-					If $$$ISERR(Status)
-					{
-						Set ErrorMsg = "Kenmerk "_..KenmerkGroep_"||"_KenmerkNaam_" voor UnID "_..UnID_" kon niet worden gesaved.("_$$ParseStatus^vhLib(Status)_")"
-					}Else{
-						Set WaardenLijst = ##class(%ListOfDataTypes).%New()
-						Do ##class(TECH.ListUtils).CopyList(Kenmerk.Waarden,WaardenLijst)
-						Set Wijziging = ##class(TECH.Events.KenmerkModifiedEventData).%New(..UnID,..KenmerkGroep,KenmerkNaam,WaardenLijst)
-					}
-				}
 			}
 		}Else{
 			/// Is nieuwe DataDefinitie voor dit object.
Index: TECH/Concurrency/VhPersistent.cls.xml
===================================================================
diff -u -r1727 -r1743
--- TECH/Concurrency/VhPersistent.cls.xml	(.../VhPersistent.cls.xml)	(revision 1727)
+++ TECH/Concurrency/VhPersistent.cls.xml	(.../VhPersistent.cls.xml)	(revision 1743)
@@ -6,11 +6,7 @@
 Deze gebeuren volledig via delegatie naar DbUtils. 
 Daardoor kan er aan gesleuteld worden zonder alle classes te moeten hercompileren.
 
-Let op: gebruik geen %-methods rechtstreeks die met locking te maken hebben!
-
-Merk op dat de InstanceVersion property eventueel in deze klasse zou kunnen staan,
-maar dat maakt het gradueel in gebruik nemen complexer. 
-De VERSIONPROPERTY parameter zou hier niet kunnen staan.</Description>
+Let op: gebruik geen %-methods rechtstreeks die met locking te maken hebben!</Description>
 <Abstract>1</Abstract>
 <IncludeCode>TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
@@ -23,8 +19,17 @@
 </Property>
 
 <Method name="Save">
+<FormalSpec>InstanceVersion:%Integer=-1</FormalSpec>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DbUtils).Save(##this)
+<Implementation><![CDATA[
+	Set Status = $$$OK
+	If (InstanceVersion '= -1){
+		Set Status = ..CheckInstanceVersion(InstanceVersion)
+	}
+	If '$$$ISERR(Status){ 
+		Set Status = ##class(DbUtils).Save(##this)
+	}
+	Quit Status
 ]]></Implementation>
 </Method>
 
@@ -106,14 +111,15 @@
 <FormalSpec>StatusCode:%Status,Message:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-		If $$$ISERR(StatusCode) {
-			$$$ThrowErrorStatus($$$errGeneralError,Message,StatusCode)
-		}
+	If $$$ISERR(StatusCode) {
+		$$$ThrowErrorStatus($$$errGeneralError,Message,StatusCode)
+	}
 ]]></Implementation>
 </Method>
 
 <Method name="CheckInstanceVersion">
 <FormalSpec>InstanceVersion:%Integer</FormalSpec>
+<Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set Status = $$$OK