Index: TECH/Exceptions/SaveFailedException.cls.xml
===================================================================
diff -u -r9 -r598
--- TECH/Exceptions/SaveFailedException.cls.xml	(.../SaveFailedException.cls.xml)	(revision 9)
+++ TECH/Exceptions/SaveFailedException.cls.xml	(.../SaveFailedException.cls.xml)	(revision 598)
@@ -33,6 +33,14 @@
 <Implementation><![CDATA[	Quit " ("_$$ParseStatus^vhLib(..Status)_")"_$C(13,10)_##super()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefOmschrijving">
+<Description>
+Wordt gebruikt om in de ecode weg te schrijven, de omschrijving blijft dus best beperkt. </Description>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Omschrijving_" "_$$ParseStatus^vhLib(..Status)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: TECH/Concurrency/DbUtils.cls.xml
===================================================================
diff -u -r9 -r598
--- TECH/Concurrency/DbUtils.cls.xml	(.../DbUtils.cls.xml)	(revision 9)
+++ TECH/Concurrency/DbUtils.cls.xml	(.../DbUtils.cls.xml)	(revision 598)
@@ -17,9 +17,8 @@
 			Do ##class(TxScope).Huidige().LockExclusive(Object)
 		}
 		Set Result = $$$OK
-	} Catch Exception {
-		// Hier geen exception throw'en, zoniet wordt die naar een niets-zeggende "NOCATCH" in een %Status omgezet door %Save.
-		Set Result = $$$ERROR($$$GeneralError, Exception.DisplayString())
+	} Catch Exception { // Hier geen exception throw'en, zoniet wordt die naar een niets-zeggende "NOCATCH" in een %Status omgezet door %Save.
+		Set Result = ..MaakStatusVanHuidigeError()
 	}
 	Quit Result
 ]]></Implementation>
@@ -35,14 +34,24 @@
 			Do ##class(TxScope).Huidige().LockExclusive(Object)
 		}
 		Set Result = $$$OK
-	} Catch Exception {
-		// Zie OnBeforeSave.
-		Set Result = $$$ERROR($$$GeneralError, Exception.DisplayString())
+	} Catch { // Hier geen exception throw'en, zoniet wordt die naar een niets-zeggende "NOCATCH" in een %Status omgezet door %Save.
+		Set Result = ..MaakStatusVanHuidigeError()
 	}
 	Quit Result
 ]]></Implementation>
 </Method>
 
+<Method name="MaakStatusVanHuidigeError">
+<ClassMethod>1</ClassMethod>
+<Private>1</Private>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ExceptionString = ##class(TECH.ExceptionHandler).Catch().ToString()
+	Set Result = $$$ERROR($$$GeneralError, ExceptionString)
+	Quit Result
+]]></Implementation>
+</Method>
+
 <Method name="Save">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Object:%Persistent</FormalSpec>