Index: TECH/PubSub/impl/EventDispatcher.cls.xml
===================================================================
diff -u -r2832 -r2955
--- TECH/PubSub/impl/EventDispatcher.cls.xml	(.../EventDispatcher.cls.xml)	(revision 2832)
+++ TECH/PubSub/impl/EventDispatcher.cls.xml	(.../EventDispatcher.cls.xml)	(revision 2955)
@@ -86,50 +86,46 @@
 <Method name="LogExceptie">
 <FormalSpec>Event:TECH.PubSub.Event,Exception:TECH.Exceptions.Exception,Subscription:TECH.PubSub.EventSubscription</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[
-	#dim LogDetail As %String = ..GeefLogDetail(Event,Exception,Subscription)
-	Do ..Logger.ErrorMail(Exception.GeefOmschrijving(), LogDetail)
+<Implementation><![CDATA[	Do ..Logger.ErrorMail(Exception.GeefOmschrijving(), ..GeefLogDetail(Event,Exception,Subscription))
 ]]></Implementation>
 </Method>
 
 <Method name="GeefLogDetail">
 <FormalSpec>Event:TECH.PubSub.Event,Exception:TECH.Exceptions.Exception,Subscription:TECH.PubSub.EventSubscription</FormalSpec>
 <Private>1</Private>
-<ReturnType>%String</ReturnType>
+<ReturnType>%Stream.Object</ReturnType>
 <Implementation><![CDATA[
-	#dim LogDetail As %String = ""
-
+	set LogDetail = ##class(%GlobalCharacterStream).%New()
+	
 	Try {
 		#dim EventDataClassname As %String = $classname(Event.Data)
 		#dim SerializedObject As %String = ..GeefGeserializeerdeString(Event)
 		#dim SerializedData As %String = $System.Encryption.Base64Encode(SerializedObject)
 
-		set LogStream = ##class(%GlobalCharacterStream).%New()
-		do LogStream.WriteLine("Event: "_Event.Type_", Class: "_Subscription.RespondingClass_", Method: "_Subscription.RespondingMethod_", Data:"_$$LCVT^vhLib(SerializedObject))		
-		do LogStream.WriteLine("")
-		do LogStream.WriteLine("Reinvoke:")
-		do LogStream.WriteLine("Set DataString = $System.Encryption.Base64Decode("""_SerializedData_""")")
-		do LogStream.WriteLine("Set EventData = ##class(TECH.XMLCorrelater).%New().FromString(DataString,"""_EventDataClassname_""","""_EventDataClassname_""")")
-		do LogStream.WriteLine("Set Event = ##class("_Event.%ClassName(1)_").%New(EventData)")
-		do LogStream.WriteLine("Do $ZOBJCLASSMETHOD("""_Subscription.RespondingClass_""", """_Subscription.RespondingMethod_""", Event)")
+		do LogDetail.WriteLine("Event: "_Event.Type_", Class: "_Subscription.RespondingClass_", Method: "_Subscription.RespondingMethod_", Data:"_$$LCVT^vhLib(SerializedObject))		
+		do LogDetail.WriteLine("")
+		do LogDetail.WriteLine("Reinvoke:")
+		do LogDetail.WriteLine("Set DataString = $System.Encryption.Base64Decode("""_SerializedData_""")")
+		do LogDetail.WriteLine("Set EventData = ##class(TECH.XMLCorrelater).%New().FromString(DataString,"""_EventDataClassname_""","""_EventDataClassname_""")")
+		do LogDetail.WriteLine("Set Event = ##class("_Event.%ClassName(1)_").%New(EventData)")
+		do LogDetail.WriteLine("Do $ZOBJCLASSMETHOD("""_Subscription.RespondingClass_""", """_Subscription.RespondingMethod_""", Event)")
 		
-		do LogStream.WriteLine("")
-		do LogStream.WriteLine("Error: ")
-		do LogStream.WriteLine(Exception.ToString())
+		do LogDetail.WriteLine("")
+		do LogDetail.WriteLine("Error: ")
+		do LogDetail.WriteLine(Exception.ToString())
 		
-		do LogStream.WriteLine("")
-		do LogStream.WriteLine("Stack: ")
+		do LogDetail.WriteLine("")
+		do LogDetail.WriteLine("Stack: ")
 		
-		do LogStream.WriteLine($E(Exception.GeefStack(),1,25000))
+		do LogDetail.WriteLine(Exception.GeefStack())
 		
-		do LogStream.Rewind()
-
-		set LogDetail = LogStream.Read(25000)
-	}
-	Catch {
+		do LogDetail.Rewind()
+	
+	} Catch {
 		#dim LogDetailException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
-		Set LogDetail="Fout in GeefLogDetail :"_LogDetailException.GeefOmschrijving()_$$$CRLF_LogDetailException.GeefStack()
+		do LogDetail.Write("Fout in GeefLogDetail :"_LogDetailException.GeefOmschrijving()_$$$CRLF_LogDetailException.GeefStack())
 	}
+	
 	Quit LogDetail
 ]]></Implementation>
 </Method>