Index: TECH/PubSub/impl/SimpelEventRaiser.cls.xml
===================================================================
diff -u -r1051 -r1089
--- TECH/PubSub/impl/SimpelEventRaiser.cls.xml	(.../SimpelEventRaiser.cls.xml)	(revision 1051)
+++ TECH/PubSub/impl/SimpelEventRaiser.cls.xml	(.../SimpelEventRaiser.cls.xml)	(revision 1089)
@@ -5,17 +5,34 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.RegisteredObject,TECH.PubSub.EventRaiser</Super>
 
+<Property name="EventDispatcher">
+<Type>TECH.PubSub.EventDispatcher</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>EventDispatcher:TECH.PubSub.EventDispatcher</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..EventDispatcher = $get(EventDispatcher,##class(TECH.PubSub.impl.EventDispatcher).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="RaiseEventAsync">
 <FormalSpec>Event:TECH.PubSub.Event</FormalSpec>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.PubSub.impl.EventDispatcher).%New().DispatchEventASync(Event)
+<Implementation><![CDATA[	Quit ..EventDispatcher.DispatchEventASync(Event)
 ]]></Implementation>
 </Method>
 
 <Method name="RaiseEventSync">
 <FormalSpec>Event:TECH.PubSub.Event</FormalSpec>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[	Quit ##class(TECH.PubSub.impl.EventDispatcher).%New().DispatchEventSync(Event)
+<Implementation><![CDATA[	Quit ..EventDispatcher.DispatchEventSync(Event)
 ]]></Implementation>
 </Method>