Index: TECH/PubSub/WachtendeEventVerwerker.cls.xml
===================================================================
diff -u -r2111 -r2113
--- TECH/PubSub/WachtendeEventVerwerker.cls.xml	(.../WachtendeEventVerwerker.cls.xml)	(revision 2111)
+++ TECH/PubSub/WachtendeEventVerwerker.cls.xml	(.../WachtendeEventVerwerker.cls.xml)	(revision 2113)
@@ -30,7 +30,7 @@
 <Method name="VerwerkWachtendEvent">
 <FormalSpec>WachtendEvent:TECH.PubSub.WachtendEvent</FormalSpec>
 <Implementation><![CDATA[
-		Do ##class(vhLib.Logger).%New("EventLog").WarningMail("VerwerkWachtendEvent",WachtendEvent _ " - start - " _ $PIECE(##class(%SYSTEM.SYS).TimeStamp(),",",2))
+		Do ##class(vhLib.Logger).%New("EventLog").WarningMail("VerwerkWachtendEvent",WachtendEvent _ " ID='" _ WachtendEvent.%Id() _ "' - start - " _ $PIECE(##class(%SYSTEM.SYS).TimeStamp(),",",2))
 		#dim RaiseEvent As %Boolean = 1
 		If (WachtendEvent.Event.%Extends("DOM.AKP.event.ProductToelevLijnGemaakt")) || (WachtendEvent.Event.%Extends("DOM.AKP.event.ProductToelevLijnGewijzigd")) || (WachtendEvent.Event.%Extends("DOM.ProdRes.event.InvoerUitvoerLinkAangemaaktEvent"))
 		{
@@ -80,9 +80,9 @@
 			#dim stRaiseEvent As Status = ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(WachtendEvent.Event)
 			do ..UpdateStatus(WachtendEvent , stRaiseEvent)
 		}
+		Do ##class(vhLib.Logger).%New("EventLog").WarningMail("VerwerkWachtendEvent",WachtendEvent _ " ID='" _ WachtendEvent.%Id() _ "' - stop - " _ $PIECE(##class(%SYSTEM.SYS).TimeStamp(),",",2))
 		#dim Status As %Status = WachtendEvent.%DeleteId(WachtendEvent.%Id())
 		If ($$$ISERR(Status)) $$$ThrowStatus(Status)
-		Do ##class(vhLib.Logger).%New("EventLog").WarningMail("VerwerkWachtendEvent",WachtendEvent _ " - stop - " _ $PIECE(##class(%SYSTEM.SYS).TimeStamp(),",",2))
 ]]></Implementation>
 </Method>