Index: TECH/PubSub/impl/EventDispatcher.cls.xml
===================================================================
diff -u -r2562 -r2797
--- TECH/PubSub/impl/EventDispatcher.cls.xml	(.../EventDispatcher.cls.xml)	(revision 2562)
+++ TECH/PubSub/impl/EventDispatcher.cls.xml	(.../EventDispatcher.cls.xml)	(revision 2797)
@@ -79,7 +79,7 @@
 <Method name="LogEvent">
 <FormalSpec>Event:TECH.PubSub.Event</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	do ..Logger.Info(Event.Type,"Data: "_$$LCVT^vhLib(..GeefGeserializeerdeString(Event)))
+<Implementation><![CDATA[	do ..Logger.Info(Event.Type,"Data: "_..GeefGeserializeerdeString(Event))
 ]]></Implementation>
 </Method>
 
@@ -133,7 +133,7 @@
 <Implementation><![CDATA[
 	#dim SerializedObject As %String = ""
 	do Event.Data.XMLExportToString(.SerializedObject)
-	quit SerializedObject
+	quit $Extract(SerializedObject,1,32000)
 ]]></Implementation>
 </Method>
 </Class>