Index: vhUnitTest/TECH/Concurrency/TestVhPersistent.cls.xml
===================================================================
diff -u -r2442 -r2449
--- vhUnitTest/TECH/Concurrency/TestVhPersistent.cls.xml	(.../TestVhPersistent.cls.xml)	(revision 2442)
+++ vhUnitTest/TECH/Concurrency/TestVhPersistent.cls.xml	(.../TestVhPersistent.cls.xml)	(revision 2449)
@@ -38,6 +38,14 @@
 	Do $$$AssertEquals(Klasse1.Klasse2.InstanceVersion,3,"De instanceversion is verhoogd omdat deze klasse een dependent concurrency heeft op de gewijzigde klasse")
 	Do $$$AssertEquals(Klasse1.Klasse2.Klasse1.InstanceVersion,3,"De instanceversion is verhoogd omdat deze klasse een dependent concurrency heeft op de gewijzigde klasse")
 	
+	Do Klasse1.Save()
+	Do Klasse1.Klasse2.Save()
+	Do Klasse1.Klasse2.Klasse3.Save()
+	
+	Do $$$AssertEquals(Klasse1.InstanceVersion,3,"De instanceversion blijft gelijk want er is niks gewijzigd")
+	Do $$$AssertEquals(Klasse1.Klasse2.InstanceVersion,3,"De instanceversion blijft gelijk want er is niks gewijzigd")
+	Do $$$AssertEquals(Klasse1.Klasse2.Klasse1.InstanceVersion,3,"De instanceversion blijft gelijk want er is niks gewijzigd")
+	
 	Do ##class(vhUnitTest.TECH.Concurrency.impl.Klasse1).%KillExtent()
 	Do ##class(vhUnitTest.TECH.Concurrency.impl.Klasse2).%KillExtent()
 	Do ##class(vhUnitTest.TECH.Concurrency.impl.Klasse3).%KillExtent()
Index: vhUnitTest/TECH/Concurrency/impl/Klasse2.cls.xml
===================================================================
diff -u -r2442 -r2449
--- vhUnitTest/TECH/Concurrency/impl/Klasse2.cls.xml	(.../Klasse2.cls.xml)	(revision 2442)
+++ vhUnitTest/TECH/Concurrency/impl/Klasse2.cls.xml	(.../Klasse2.cls.xml)	(revision 2449)
@@ -37,8 +37,8 @@
 <Method name="OnDefineDependentConcurrency">
 <Implementation><![CDATA[
 	Do ..MarkDependentConcurrency(..Klasse1)
-	Set ..ParentKlasse1.Iets = "trallala"
 	Do ..MarkDependentConcurrency(..ParentKlasse1)
+	Do ..MarkDependentConcurrency(..Klasse3)
 ]]></Implementation>
 </Method>
 
Index: TECH/Concurrency/VhPersistent.cls.xml
===================================================================
diff -u -r2444 -r2449
--- TECH/Concurrency/VhPersistent.cls.xml	(.../VhPersistent.cls.xml)	(revision 2444)
+++ TECH/Concurrency/VhPersistent.cls.xml	(.../VhPersistent.cls.xml)	(revision 2449)
@@ -28,7 +28,7 @@
 	If (InstanceVersion '= -1){
 		Set ..InstanceVersion = InstanceVersion
 	}
-	Do ..OnDefineDependentConcurrency()
+	Do:..%IsModified() ..OnDefineDependentConcurrency()
 	Set Status = ##class(DbUtils).Save(##this)
 	If ($$$ISERR(Status))
 	{