Index: vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml
===================================================================
diff -u -r45956 -r45957
--- vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 45956)
+++ vhUnitTest/DOM/PM/impl/DataM/DataMProduct/Test.cls.xml	(.../Test.cls.xml)	(revision 45957)
@@ -98,6 +98,28 @@
 	Do $$$AssertFalse(Product.IsNieuwProduct())
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Save persisteert een nieuw product">
+<Implementation><![CDATA[
+	#dim EventRaiserSpy As vhTest.Spy.TECH.PubSub.EventRaiser = ##class(vhTest.Spy.TECH.PubSub.EventRaiser).PushedInstance()
+	
+ 	Set Product = ##class(DOM.PM.impl.ProductImpl).%New(..#ProductId)
+ 	Do Product.ZetIdentNr("IdentNummer")
+	Do Product.ZetKorttekst("Korttekst")
+	Do Product.ZetLeverancierId("L||LeverancierId")
+	Do Product.ZetHoofdGroep("HoofdGroep")	
+	Do Product.ZetGroep("Groep")
+	Do Product.ZetSubGroep("SubGroep")
+ 	
+ 	Do $$$AssertTrue(Product.IsNieuwProduct())
+ 	
+ 	Do Product.Save()
+ 	
+ 	Do $$$AssertFalse(Product.IsNieuwProduct())
+ 	Do $$$AssertEquals(EventRaiserSpy.IsEventGeraised("AdministratiefProductGewijzigdEvent"),"Event 'AdministratiefProductGewijzigdEvent' niet geraised")
+	Do $$$AssertEquals(EventRaiserSpy.IsEventGeraised("AdministratiefProductGemaaktEvent"),"")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r45953 -r45957
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45953)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 45957)
@@ -117,12 +117,13 @@
 		Set:IsGewijzigdProduct=0 IsGewijzigdProduct = $method($property($this,"Data"_NodeIndex),"IsGewijzigd")
 	}
 	
-	if IsGewijzigdProduct {
+	If IsGewijzigdProduct {
 		For NodeIndex = 0,1,2,3,15,"I1","J","G" {
 			Do $method($property($this,"Data"_NodeIndex),"Save")
 		}	
 		Do BLDIND^PRODUKT2(..ProductNummer)
 		If ..IsNieuwProduct { Do Gemaakt^PRODUKT2(..ProductNummer) } Else { Do Gewijzigd^PRODUKT2(..ProductNummer) }
+		Set ..IsNieuwProduct = $$$False
 	}
 ]]></Implementation>
 </Method>