Index: TECH/Concurrency/DbUtils.cls.xml
===================================================================
diff -u -r1646 -r1683
--- TECH/Concurrency/DbUtils.cls.xml	(.../DbUtils.cls.xml)	(revision 1646)
+++ TECH/Concurrency/DbUtils.cls.xml	(.../DbUtils.cls.xml)	(revision 1683)
@@ -59,7 +59,7 @@
 	#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)
+		Set Exception = ##class(TECH.Exceptions.SaveFailedException).%New("Save '"_$classname(Object)_"' mislukt.",SaveStatus)
 		do Exception.VoegToeInnerExceptie(InnerException)
 		Do ##class(TECH.ExceptionHandler).Throw(Exception)
 	}