Index: TECH/PubSub/impl/EventDispatcher.cls.xml
===================================================================
diff -u -r890 -r1080
--- TECH/PubSub/impl/EventDispatcher.cls.xml	(.../EventDispatcher.cls.xml)	(revision 890)
+++ TECH/PubSub/impl/EventDispatcher.cls.xml	(.../EventDispatcher.cls.xml)	(revision 1080)
@@ -30,9 +30,10 @@
 			Set MaakEventCode = MaakEventCode _$C(13,10)_ "Set Event = ##class("_Event.%ClassName(1)_").%New(EventData)"
 			Set MaakEventCode = MaakEventCode _$C(13,10)_ "Do $ZOBJCLASSMETHOD("""_Subscription.RespondingClass_""", """_Subscription.RespondingMethod_""", Event)"
 
-			Do Logger.ErrorMail(Exception.GeefOmschrijving(),"Event: "_Event.Type_", Class: "_Subscription.RespondingClass_", Method: "_Subscription.RespondingMethod_", Data:"_$$LCVT^vhLib(SerializedObject)_$C(13,10,13,10)_"Reinvoke:"_$C(13,10)_MaakEventCode_$C(13,10,13,10)_"Error: "_$C(13,10)_Exception.ToString())
-			
-			
+			#dim LogDetail As %String = "Event: "_Event.Type_", Class: "_Subscription.RespondingClass_", Method: "_Subscription.RespondingMethod_", Data:"_$$LCVT^vhLib(SerializedObject)_$C(13,10,13,10)_"Reinvoke:"_$C(13,10)_MaakEventCode_$C(13,10,13,10)_"Error: "_$C(13,10)_Exception.ToString()
+			Set LogDetail=LogDetail_"Stack: "_$C(13,10)_$E(Exception.GeefStack(1),1,25000)
+			Do Logger.ErrorMail(Exception.GeefOmschrijving(), LogDetail)
+						
 			if ##class(TECH.Config.ConfigMgr).Instance().GeefBoolean("TECH.PubSub.Rethrow_Exception") {
 				do ##class(TECH.ExceptionHandler).Throw(Exception)
 			}