Index: vhLib/LogViewer.cls.xml
===================================================================
diff -u -r2195 -r2955
--- vhLib/LogViewer.cls.xml	(.../LogViewer.cls.xml)	(revision 2195)
+++ vhLib/LogViewer.cls.xml	(.../LogViewer.cls.xml)	(revision 2955)
@@ -51,7 +51,7 @@
 	Do QueryBuilder.ZetWhereConditie(Conditie)
 	
 	#dim Veld As %String
-	For Veld="Datum", "Tijd", "Groep", "Niveau", "Actie", "JobID", "SessionID", "Gebruiker", "GekendeExceptie->StoryID As Story", "DetailTrunc As Detail" {
+	For Veld="ID", "Datum", "Tijd", "Groep", "Niveau", "Actie", "JobID", "SessionID", "Gebruiker", "GekendeExceptie->StoryID As Story", "DetailTrunc As Detail" {
 		Do QueryBuilder.SelecteerVeldVanTabel(Veld,Tabel)
 	}
 	
Index: TECH/Logging/impl/LoggingAPI.cls.xml
===================================================================
diff -u -r1494 -r2955
--- TECH/Logging/impl/LoggingAPI.cls.xml	(.../LoggingAPI.cls.xml)	(revision 1494)
+++ TECH/Logging/impl/LoggingAPI.cls.xml	(.../LoggingAPI.cls.xml)	(revision 2955)
@@ -4,7 +4,7 @@
 <Super>TECH.Logging.LoggingAPI,TECH.Mockable</Super>
 
 <Method name="MaakLogItem">
-<FormalSpec>Niveau:%String,Groep:%String,Actie:%String,Detail:%String,blnSendMail:%Boolean=0,Logger:vhLib.Logger=""</FormalSpec>
+<FormalSpec>Niveau:%String,Groep:%String,Actie:%String,Detail:%CacheString,blnSendMail:%Boolean=0,Logger:vhLib.Logger=""</FormalSpec>
 <ReturnType>vhLib.Logging</ReturnType>
 <Implementation><![CDATA[
 	#dim Logging As vhLib.Logging = ##class(vhLib.Logging).Create(Logger,,,.Niveau,Groep,.Actie,.Detail,,.blnSendMail)
Index: vhTest/Mock/TECH/Logging/impl/LoggingAPI.cls.xml
===================================================================
diff -u -r2401 -r2955
--- vhTest/Mock/TECH/Logging/impl/LoggingAPI.cls.xml	(.../LoggingAPI.cls.xml)	(revision 2401)
+++ vhTest/Mock/TECH/Logging/impl/LoggingAPI.cls.xml	(.../LoggingAPI.cls.xml)	(revision 2955)
@@ -18,7 +18,7 @@
 </Method>
 
 <Method name="MaakLogItem">
-<FormalSpec>Niveau:%String,Groep:%String,Actie:%String,Detail:%String,blnSendMail:%Boolean=0,Logger:vhLib.Logger=""</FormalSpec>
+<FormalSpec>Niveau:%String,Groep:%String,Actie:%String,Detail:%CacheString,blnSendMail:%Boolean=0,Logger:vhLib.Logger=""</FormalSpec>
 <ReturnType>vhLib.Logging</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakLogItem",Niveau,Groep,Actie,Detail,blnSendMail,Logger)
 ]]></Implementation>
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>
Index: vhTest/Fake/TECH/Logging/impl/LoggingAPI.cls.xml
===================================================================
diff -u -r2401 -r2955
--- vhTest/Fake/TECH/Logging/impl/LoggingAPI.cls.xml	(.../LoggingAPI.cls.xml)	(revision 2401)
+++ vhTest/Fake/TECH/Logging/impl/LoggingAPI.cls.xml	(.../LoggingAPI.cls.xml)	(revision 2955)
@@ -17,7 +17,7 @@
 </Method>
 
 <Method name="MaakLogItem">
-<FormalSpec>Niveau:%String,Groep:%String,Actie:%String,Detail:%String,blnSendMail:%Boolean=0,Logger:vhLib.Logger=""</FormalSpec>
+<FormalSpec>Niveau:%String,Groep:%String,Actie:%String,Detail:%CacheString,blnSendMail:%Boolean=0,Logger:vhLib.Logger=""</FormalSpec>
 <ReturnType>vhLib.Logging</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
Index: TECH/Logging/LoggingAPI.cls.xml
===================================================================
diff -u -r1494 -r2955
--- TECH/Logging/LoggingAPI.cls.xml	(.../LoggingAPI.cls.xml)	(revision 1494)
+++ TECH/Logging/LoggingAPI.cls.xml	(.../LoggingAPI.cls.xml)	(revision 2955)
@@ -6,7 +6,7 @@
 
 <Method name="MaakLogItem">
 <Abstract>1</Abstract>
-<FormalSpec>Niveau:%String,Groep:%String,Actie:%String,Detail:%String,blnSendMail:%Boolean=0,Logger:vhLib.Logger=""</FormalSpec>
+<FormalSpec>Niveau:%String,Groep:%String,Actie:%String,Detail:%CacheString,blnSendMail:%Boolean=0,Logger:vhLib.Logger=""</FormalSpec>
 <ReturnType>vhLib.Logging</ReturnType>
 </Method>
 </Class>
Index: vhLib/Logging.cls.xml
===================================================================
diff -u -r2806 -r2955
--- vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 2806)
+++ vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 2955)
@@ -218,7 +218,7 @@
 
 <Method name="Create">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>oLogger:vhLib.Logger,Datum:%Date,Tijd:%Time,Niveau:%String,Groep:%String,Actie:%String,Detail:%String,ProgLabel:%String,SendMail:%String=0</FormalSpec>
+<FormalSpec>oLogger:vhLib.Logger,Datum:%Date,Tijd:%Time,Niveau:%String,Groep:%String,Actie:%String,Detail:%CacheString,ProgLabel:%String,SendMail:%String=0</FormalSpec>
 <Implementation><![CDATA[
 	Set oLog=..%New()
 	Do oLog.Init(.Datum,.Tijd,.Niveau,.Groep,.Actie,.Detail,.ProgLabel)
Index: vhTest/Mock/TECH/Logging/LoggingAPI.cls.xml
===================================================================
diff -u -r2401 -r2955
--- vhTest/Mock/TECH/Logging/LoggingAPI.cls.xml	(.../LoggingAPI.cls.xml)	(revision 2401)
+++ vhTest/Mock/TECH/Logging/LoggingAPI.cls.xml	(.../LoggingAPI.cls.xml)	(revision 2955)
@@ -18,7 +18,7 @@
 </Method>
 
 <Method name="MaakLogItem">
-<FormalSpec>Niveau:%String,Groep:%String,Actie:%String,Detail:%String,blnSendMail:%Boolean=0,Logger:vhLib.Logger=""</FormalSpec>
+<FormalSpec>Niveau:%String,Groep:%String,Actie:%String,Detail:%CacheString,blnSendMail:%Boolean=0,Logger:vhLib.Logger=""</FormalSpec>
 <ReturnType>vhLib.Logging</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakLogItem",Niveau,Groep,Actie,Detail,blnSendMail,Logger)
 ]]></Implementation>
Index: vhTest/Fake/TECH/Logging/impl/RaiseOnErrorLoggingAPI.cls.xml
===================================================================
diff -u -r2401 -r2955
--- vhTest/Fake/TECH/Logging/impl/RaiseOnErrorLoggingAPI.cls.xml	(.../RaiseOnErrorLoggingAPI.cls.xml)	(revision 2401)
+++ vhTest/Fake/TECH/Logging/impl/RaiseOnErrorLoggingAPI.cls.xml	(.../RaiseOnErrorLoggingAPI.cls.xml)	(revision 2955)
@@ -14,7 +14,7 @@
 </Method>
 
 <Method name="MaakLogItem">
-<FormalSpec>Niveau:%String,Groep:%String,Actie:%String,Detail:%String,blnSendMail:%Boolean=0,Logger:vhLib.Logger=""</FormalSpec>
+<FormalSpec>Niveau:%String,Groep:%String,Actie:%String,Detail:%CacheString,blnSendMail:%Boolean=0,Logger:vhLib.Logger=""</FormalSpec>
 <ReturnType>vhLib.Logging</ReturnType>
 <Implementation><![CDATA[
 	If Niveau = "E" {