Index: vhUnitTest/DOM/PM/TestSamengesteldProduct.cls.xml
===================================================================
diff -u -r1336 -r1339
--- vhUnitTest/DOM/PM/TestSamengesteldProduct.cls.xml	(.../TestSamengesteldProduct.cls.xml)	(revision 1336)
+++ vhUnitTest/DOM/PM/TestSamengesteldProduct.cls.xml	(.../TestSamengesteldProduct.cls.xml)	(revision 1339)
@@ -27,8 +27,8 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Kill ^PRBS("BS",999)
-	Kill ^PRBS("IP",..KindPRNr)
-	Kill ^PRLINK("D",999,..KindPRNr)
+	Kill ^PRBS("IP",999,..KindPRNr)
+	Kill ^PRLINK("D",999)
 	Kill ^PRLINK("IKM",..KindPRNr,999)
 	Quit $$$OK
 ]]></Implementation>
@@ -117,6 +117,8 @@
 	Do $$$AssertFalse($D(^PRLINK("IKM",..KindPRNr,999)),"De index van kind op moeder werd verwijderd")
 	Do $$$AssertFalse($D(^PRBS("IP",..KindPRNr,999,"KIND.003")),"De index op bouwsteentype werd verwijderd")
 	Do $$$AssertFalse(NieuwKindBouwsteen.IsModified(),"De bouwsteen werd verwijderd en de modified vlag is op true gezet")
+	
+	Do $$$AssertFalse($D(^PRLINK("D",999)),"De andere nodes hadden geen index voordien en zijn ook niet aangemaakt, omdat de objecten niet zijn gewijzigd")
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/impl/DataM/KindBouwsteen.cls.xml
===================================================================
diff -u -r1336 -r1339
--- DOM/PM/impl/DataM/KindBouwsteen.cls.xml	(.../KindBouwsteen.cls.xml)	(revision 1336)
+++ DOM/PM/impl/DataM/KindBouwsteen.cls.xml	(.../KindBouwsteen.cls.xml)	(revision 1339)
@@ -59,26 +59,30 @@
 <Method name="Save">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
-	If (..BouwsteenID = "")
+	Set Status = $$$OK
+	If (..IsModified())
 	{
-		Set BouwsteenID = $Order(^PRBS("BS",..MoederProduct.GeefPRNr(),"KIND.999"),-1)
-		Set $Piece(BouwsteenID,".",2) = $Translate($J($Piece(BouwsteenID,".",2)+1,3)," ","0")
-		Set ..BouwsteenID = BouwsteenID
+		Set OperatieScope = ##class(TECH.OperatieScope).StartMetTx()
+		If (..BouwsteenID = "")
+		{
+			Set BouwsteenID = $Order(^PRBS("BS",..MoederProduct.GeefPRNr(),"KIND.999"),-1)
+			Set $Piece(BouwsteenID,".",2) = $Translate($J($Piece(BouwsteenID,".",2)+1,3)," ","0")
+			Set ..BouwsteenID = BouwsteenID
+		}
+		Set Status = ##class(DOM.PM.impl.DataM.Bouwsteen)##this.Save()
+		If ($$$ISOK(Status))
+		{
+			Set ^PRBS("IP",..Product.GeefPRNr(),..MoederProduct.GeefPRNr(),..BouwsteenID) = $Piece(..BouwsteenRecord,"\",3)
+			Set ^PRLINK("D",..MoederProduct.GeefPRNr(),..Product.GeefPRNr()) = $Piece(..BouwsteenRecord,"\",2)_"\"_$Piece(..BouwsteenRecord,"\",12)
+			Set ^PRLINK("IKM",..Product.GeefPRNr(),..MoederProduct.GeefPRNr()) = ""
+			Do OperatieScope.Gelukt()
+		}
+		Else
+		{
+			Do OperatieScope.Gefaald()
+			Set ..BouwsteenID = ""
+		}
 	}
-	Set Status = ##class(DOM.PM.impl.DataM.Bouwsteen)##this.Save()
-	If ($$$ISOK(Status))
-	{
-		Set ^PRBS("IP",..Product.GeefPRNr(),..MoederProduct.GeefPRNr(),..BouwsteenID) = $Piece(..BouwsteenRecord,"\",3)
-		Set ^PRLINK("D",..MoederProduct.GeefPRNr(),..Product.GeefPRNr()) = $Piece(..BouwsteenRecord,"\",2)_"\"_$Piece(..BouwsteenRecord,"\",12)
-		Set ^PRLINK("IKM",..Product.GeefPRNr(),..MoederProduct.GeefPRNr()) = ""
-		Do OperatieScope.Gelukt()
-	}
-	Else
-	{
-		Do OperatieScope.Gefaald()
-		Set ..BouwsteenID = ""
-	}
 	Quit Status
 ]]></Implementation>
 </Method>