Index: TECH/PubSub/impl/EventDispatcher.cls.xml
===================================================================
diff -u -r2508 -r2553
--- TECH/PubSub/impl/EventDispatcher.cls.xml	(.../EventDispatcher.cls.xml)	(revision 2508)
+++ TECH/PubSub/impl/EventDispatcher.cls.xml	(.../EventDispatcher.cls.xml)	(revision 2553)
@@ -79,7 +79,7 @@
 <Method name="LogEvent">
 <FormalSpec>Event:TECH.PubSub.Event</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	do ..Logger.Info(Event.%ClassName(1),"Data: "_$$LCVT^vhLib(..GeefGeserializeerdeString(Event)))
+<Implementation><![CDATA[	do ..Logger.Info(Event.Type,"Data: "_$$LCVT^vhLib(..GeefGeserializeerdeString(Event)))
 ]]></Implementation>
 </Method>