Index: APPS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r1735 -r1745
--- APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1735)
+++ APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1745)
@@ -100,7 +100,7 @@
 	}	
 	 Set SQLStatement = SQLStatement_" PRNr In ( "_SQLPRNrs_" )"
 	
-	 D WLIP^vhDBG(127,SQLStatement)
+	 //D WLIP^vhDBG(127,SQLStatement)
 	 Do RS.Prepare(SQLStatement)		
 	 Set tmpStatus = RS.Execute()
 	 If $$$ISOK(tmpStatus)
@@ -152,9 +152,7 @@
 			 	Set ProductKenmerk = ##class(APPS.PM.dto.Kenm.ProductKenmerk).%New()
 			 	Set ProductKenmerk.Naam = KenmerkNaam
 			 	Set ProductKenmerk.Waarden = ##class(TECH.ListUtils).ListbuildToList(RS.Data("Waarden"))
-			 	If (InstanceVersion '= "") {
-				 	Set ProductKenmerk.InstanceVersion = InstanceVersion
-			 	}
+			 	Set ProductKenmerk.InstanceVersion = InstanceVersion
 			 	
 			 	Do ProductKenmerkenSet.Kenmerken.Insert(ProductKenmerk)
 				 
@@ -163,7 +161,6 @@
 			 	Set tmpKenmerkGroep = KenmerkGroep	
 		 	} 	
 		 }
-		 d WLIP^vhDBG(127, "Aantal : "_Teller)
 	 }
 	
 	$$$TECHErrorTrapOff
Index: TECH/Concurrency/VhPersistent.cls.xml
===================================================================
diff -u -r1743 -r1745
--- TECH/Concurrency/VhPersistent.cls.xml	(.../VhPersistent.cls.xml)	(revision 1743)
+++ TECH/Concurrency/VhPersistent.cls.xml	(.../VhPersistent.cls.xml)	(revision 1745)
@@ -22,14 +22,10 @@
 <FormalSpec>InstanceVersion:%Integer=-1</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set Status = $$$OK
 	If (InstanceVersion '= -1){
-		Set Status = ..CheckInstanceVersion(InstanceVersion)
+		Set ..InstanceVersion = InstanceVersion
 	}
-	If '$$$ISERR(Status){ 
-		Set Status = ##class(DbUtils).Save(##this)
-	}
-	Quit Status
+	Quit ##class(DbUtils).Save(##this)
 ]]></Implementation>
 </Method>
 
@@ -117,19 +113,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="CheckInstanceVersion">
-<FormalSpec>InstanceVersion:%Integer</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set Status = $$$OK
-	If (InstanceVersion '= ..InstanceVersion)	{
-		Set Status = $$$ERROR($$$GeneralError,"InstanceVersions komen niet meer overeen : "_InstanceVersion_" != "_..InstanceVersion)
-	}	
-	Quit Status
-]]></Implementation>
-</Method>
-
 <Method name="LogTrace">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Bericht</FormalSpec>