Index: TECH/Exceptions/Log/LogService.cls.xml
===================================================================
diff -u -r2604 -r2613
--- TECH/Exceptions/Log/LogService.cls.xml	(.../LogService.cls.xml)	(revision 2604)
+++ TECH/Exceptions/Log/LogService.cls.xml	(.../LogService.cls.xml)	(revision 2613)
@@ -13,6 +13,11 @@
 	Do ExceptionLogItemDto.Accept(Visitor)
 	Set ExceptionLogItem = Visitor.GeefExceptionLogItem()
 	Do ExceptionLogItem.Save()
+	
+	Set XMLString = ""
+	Do ExceptionLogItemDto.XMLExportToString(.XMLString,,"literal,indent")
+	Do ##class(vhLib.Logger).%New("Exceptie logservice").Error("ExceptieLogItem",XMLString)
+	
 	Quit ExceptionLogItem
 ]]></Implementation>
 </Method>