Index: TECH/PubSub/impl/EventDispatcher.cls.xml
===================================================================
diff -u -r2553 -r2562
--- TECH/PubSub/impl/EventDispatcher.cls.xml	(.../EventDispatcher.cls.xml)	(revision 2553)
+++ TECH/PubSub/impl/EventDispatcher.cls.xml	(.../EventDispatcher.cls.xml)	(revision 2562)
@@ -108,11 +108,15 @@
 		Set MaakEventCode = "Set EventData = ##class(TECH.XMLCorrelater).%New().FromString(DataString,"""_EventDataClassname_""","""_EventDataClassname_""")"
 		Set MaakEventCode = MaakEventCode _$$$CRLF_ "Set Event = ##class("_Event.%ClassName(1)_").%New(EventData)"
 		Set MaakEventCode = MaakEventCode _$$$CRLF_ "Do $ZOBJCLASSMETHOD("""_Subscription.RespondingClass_""", """_Subscription.RespondingMethod_""", Event)"
+		
+		set LogStream = ##class(%GlobalCharacterStream).%New()
+		do LogStream.Write("Event: "_Event.Type_", Class: "_Subscription.RespondingClass_", Method: "_Subscription.RespondingMethod_", Data:"_$$LCVT^vhLib(SerializedObject))		
+		do LogStream.Write($$$CRLF_$$$CRLF_"Reinvoke:"_$$$CRLF_MaakEventCode)
+		do LogStream.Write(LogDetail_$$$CRLF_$$$CRLF_"Error: "_$$$CRLF_Exception.ToString())
+		do LogStream.Write(LogDetail_$$$CRLF_$$$CRLF_"Stack: "_$E(Exception.GeefStack(),1,25000))
+		do LogStream.Rewind()
 
-		Set LogDetail = "Event: "_Event.Type_", Class: "_Subscription.RespondingClass_", Method: "_Subscription.RespondingMethod_", Data:"_$$LCVT^vhLib(SerializedObject)
-		Set LogDetail=LogDetail_$$$CRLF_$$$CRLF_"Reinvoke:"_$$$CRLF_MaakEventCode
-		Set LogDetail=LogDetail_$$$CRLF_$$$CRLF_"Error: "_$$$CRLF_Exception.ToString()
-		Set LogDetail=LogDetail_$$$CRLF_$$$CRLF_"Stack: "_$E(Exception.GeefStack(),1,25000)
+		set LogDetail = LogStream.Read(25000)
 	}
 	Catch {
 		#dim LogDetailException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()