Index: TECH/Concurrency/DbUtils.cls.xml
===================================================================
diff -u -r598 -r1332
--- TECH/Concurrency/DbUtils.cls.xml	(.../DbUtils.cls.xml)	(revision 598)
+++ TECH/Concurrency/DbUtils.cls.xml	(.../DbUtils.cls.xml)	(revision 1332)
@@ -56,8 +56,13 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Object:%Persistent</FormalSpec>
 <Implementation><![CDATA[
-	Set SaveStatus = Object.%Save()
-	If ($$$ISERR(SaveStatus)) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Save mislukt.",SaveStatus))
+	#dim SaveStatus As %Status = Object.%Save()
+	If ($$$ISERR(SaveStatus)) {
+		#dim InnerException As TECH.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set Exception = ##class(TECH.Exceptions.SaveFailedException).%New("Save mislukt.",SaveStatus)
+		do Exception.VoegToeInnerExceptie(InnerException)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
 ]]></Implementation>
 </Method>