Index: TECH/Persistent.cls.xml
===================================================================
diff -u -r42 -r432
--- TECH/Persistent.cls.xml	(.../Persistent.cls.xml)	(revision 42)
+++ TECH/Persistent.cls.xml	(.../Persistent.cls.xml)	(revision 432)
@@ -5,6 +5,10 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%Persistent,TECH.IPersistent</Super>
 
+<Parameter name="ErrorBijOnDelete">
+<Default>Error_bij_OnDelete</Default>
+</Parameter>
+
 <Method name="OpenId">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Id:%String</FormalSpec>
@@ -65,7 +69,12 @@
 	#dim Status As %Status = ..%DeleteId(Id)
 	If ($$$ISERR(Status))
 	{
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"Kon object van type "_..%ClassName(1)_" met id "_Id_" niet verwijderen",Status))
+		If Status=$$$ERROR($$$GeneralError,..#ErrorBijOnDelete) {
+			Do ##class(TECH.ExceptionHandler).Rethrow()
+		}
+		Else {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"Kon object van type "_..%ClassName(1)_" met id "_Id_" niet verwijderen",Status))
+		}
 	}
 ]]></Implementation>
 </Method>
@@ -77,12 +86,18 @@
 <FormalSpec>oid:%ObjectIdentity</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	#dim Status=$$$OK
 	Set Object = ..%Open(oid)
 	If ($IsObject(Object))
 	{
-		Do Object.OnDelete()
+		Try {
+			Do Object.OnDelete()
+		}
+		Catch e {
+			Set Status=$$$ERROR($$$GeneralError,..#ErrorBijOnDelete)
+		}
 	}
-	Quit $$$OK
+	Quit Status
 ]]></Implementation>
 </Method>