Index: vhLib/Logging.cls.xml =================================================================== diff -u -r3391 -r3440 --- vhLib/Logging.cls.xml (.../Logging.cls.xml) (revision 3391) +++ vhLib/Logging.cls.xml (.../Logging.cls.xml) (revision 3440) @@ -229,11 +229,16 @@ Do ##class(TECH.Exceptions.GekendeExceptieMatcher).%New().KoppelErrorLog( oLog ) Set SendMail = (SendMail && oLog.TeBehandelen) } Catch { - #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() - Do ##class(vhLib.Logger).%New().LogEnMailExceptie(Exception) + Try { + #dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch() + Do ##class(vhLib.Logger).%New().LogEnMailExceptie(Exception) + } Catch {} } // Het log-item saven, is belangrijker dan de eventuele koppel-exceptie te behandelen. #dim scSave As %Status = oLog.%Save() - Set oLog.Detail = "Maak een nieuwe gekende exceptie"_$$$CRLF _ ..GeefMaakGekendeExceptieUrl(oLog) _ $$$CRLF_ $$$CRLF _ oLog.Detail + + Try { + Set oLog.Detail = "Maak een nieuwe gekende exceptie"_$$$CRLF _ ..GeefMaakGekendeExceptieUrl(oLog) _ $$$CRLF_ $$$CRLF _ oLog.Detail + } Catch {} // Geen error handling hier, om niet in een eindeloze recursie te belanden. #dim ServerPrefix As %String = "["_$$$UCase($$$Server)_"] "