Index: TECH/PubSub/impl/EventDispatcher.cls.xml
===================================================================
diff -u -r462 -r717
--- TECH/PubSub/impl/EventDispatcher.cls.xml	(.../EventDispatcher.cls.xml)	(revision 462)
+++ TECH/PubSub/impl/EventDispatcher.cls.xml	(.../EventDispatcher.cls.xml)	(revision 717)
@@ -62,7 +62,7 @@
 <Method name="LogEvent">
 <FormalSpec>Event:TECH.PubSub.Event</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	Do ##class(vhLib.Logger).%New("EventLog").Info(Event.%ClassName(0),"Data: "_$$LCVT^vhLib(..GeefGeserializeerdeString(Event)))
+<Implementation><![CDATA[	Do ##class(vhLib.Logger).%New("EventLog").Info(Event.%ClassName(1),"Data: "_$$LCVT^vhLib(..GeefGeserializeerdeString(Event)))
 ]]></Implementation>
 </Method>