Index: vhUnitTest/PRA/Concurrency/TestDirtyWrite.cls.xml
===================================================================
diff -u -r1074 -r2444
--- vhUnitTest/PRA/Concurrency/TestDirtyWrite.cls.xml	(.../TestDirtyWrite.cls.xml)	(revision 1074)
+++ vhUnitTest/PRA/Concurrency/TestDirtyWrite.cls.xml	(.../TestDirtyWrite.cls.xml)	(revision 2444)
@@ -38,7 +38,7 @@
 	
 	Set Rekening = ##class(zTryout.PRA.Concurrency.BankRekening).OpenId("A")
 	Do Rekening.SetSaldo(15)
-	Set Status = Rekening.Save()
+	Do Rekening.Save()
 	
 	JOB ClassMethod^vhLib("vhUnitTest.PRA.Concurrency.TestDirtyWrite","HaalGeldAfLeesTwee",3,IsViaObjecten,ResourceNameTweede,ResourceNameEinde)
 	JOB ClassMethod^vhLib("vhUnitTest.PRA.Concurrency.TestDirtyWrite","HaalGeldAfLeesEen",2,IsViaObjecten,ResourceNameEerste)
Index: Prod/Kenmerk/DataDefinitie.cls.xml
===================================================================
diff -u -r1951 -r2444
--- Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 1951)
+++ Prod/Kenmerk/DataDefinitie.cls.xml	(.../DataDefinitie.cls.xml)	(revision 2444)
@@ -575,7 +575,7 @@
 	. Set objNew.WijzigTijdstip=""   ; $zdt($H,4) 
 	. Set:UserID="" UserID = ##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen()
 	. Set:($L($G(UserID))) objNew.WijzigGebruiker=UserID
-	. Set sc=objNew.Save()
+	. Do objNew.Save()
 	. Lock -(^Prod.Ken.DataDefinitieD(ToUnID,""))
 	. Set objFrom=""
 	. Set objNew=""
Index: DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml
===================================================================
diff -u -r1821 -r2444
--- DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml	(.../IngegevenKenmerkenAPIimpl.cls.xml)	(revision 1821)
+++ DOM/PM/impl/IngegevenKenmerkenAPIimpl.cls.xml	(.../IngegevenKenmerkenAPIimpl.cls.xml)	(revision 2444)
@@ -12,14 +12,7 @@
 	Set CanonischeWaarde = ..GeefCanonischeWaarde(IngegevenKenmerken)	
 	Set IKIDHash = ..GeefIKIDHash(CanonischeWaarde)
 	Set IKID = IKIDHash.VoegToe(CanonischeWaarde,IngegevenKenmerken)
-	
-	Set Status = IKIDHash.Save()
-	
-	If ($$$ISERR(Status))
-	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon de nodige data niet opslaan voor de IKID.",Status))
-	}
-	
+	Do IKIDHash.Save()
 	Quit IKID
 ]]></Implementation>
 </Method>
Index: TECH/Concurrency/VhPersistent.cls.xml
===================================================================
diff -u -r2442 -r2444
--- TECH/Concurrency/VhPersistent.cls.xml	(.../VhPersistent.cls.xml)	(revision 2442)
+++ TECH/Concurrency/VhPersistent.cls.xml	(.../VhPersistent.cls.xml)	(revision 2444)
@@ -24,13 +24,16 @@
 
 <Method name="Save">
 <FormalSpec>InstanceVersion:%Integer=-1</FormalSpec>
-<ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	If (InstanceVersion '= -1){
 		Set ..InstanceVersion = InstanceVersion
 	}
 	Do ..OnDefineDependentConcurrency()
-	Quit ##class(DbUtils).Save(##this)
+	Set Status = ##class(DbUtils).Save(##this)
+	If ($$$ISERR(Status))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon object van type "_..%ClassName(1)_" niet opslaan",Status))
+	}
 ]]></Implementation>
 </Method>
 
Index: APPS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r2197 -r2444
--- APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 2197)
+++ APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 2444)
@@ -533,9 +533,8 @@
 	
 Catch Set $ZTRAP = ""	
 	Set Exception = ##class(TECH.ExceptionHandler).Catch()
-	Set ErrorMsg = "BewaarProductenKenmerken heeft de wijzigingen niet kunnen opslaan : "_Exception.ToString()
 	Do OperatieScope.Gefaald()
-	Do ##class(TECH.ExceptionHandler).Rethrow(##class(TECH.Exceptions.BaseException).%New(Exception.GeefExceptionCode(),ErrorMsg))
+	Do ##class(TECH.ExceptionHandler).Rethrow(Exception)
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/impl/ProductKenmerkenSet.cls.xml
===================================================================
diff -u -r1826 -r2444
--- DOM/PM/impl/ProductKenmerkenSet.cls.xml	(.../ProductKenmerkenSet.cls.xml)	(revision 1826)
+++ DOM/PM/impl/ProductKenmerkenSet.cls.xml	(.../ProductKenmerkenSet.cls.xml)	(revision 2444)
@@ -173,15 +173,11 @@
 				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 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)
-				}
+				Do Kenmerk.Save(InstanceVersion)
+				
+				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.