Index: TECH/Concurrency/DbUtils.cls.xml
===================================================================
diff -u -r1683 -r3432
--- TECH/Concurrency/DbUtils.cls.xml	(.../DbUtils.cls.xml)	(revision 1683)
+++ TECH/Concurrency/DbUtils.cls.xml	(.../DbUtils.cls.xml)	(revision 3432)
@@ -81,7 +81,7 @@
 	} Else {
 		Set Instance = $classmethod(ClassName, "%OpenId", ID)
 	}
-	Do:('$isobject(Instance)) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New($$ParseStatus^vhLib(%objlasterror)))
+	Do:('$isobject(Instance)) ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.ObjectExpectedException).%New("Object met ID '"_ID_"' : "_$$ParseStatus^vhLib(%objlasterror)))
 	Quit Instance
 ]]></Implementation>
 </Method>