Index: TECH/PubSub/impl/SimpelEventRaiser.cls.xml
===================================================================
diff -u -r1089 -r1125
--- TECH/PubSub/impl/SimpelEventRaiser.cls.xml	(.../SimpelEventRaiser.cls.xml)	(revision 1089)
+++ TECH/PubSub/impl/SimpelEventRaiser.cls.xml	(.../SimpelEventRaiser.cls.xml)	(revision 1125)
@@ -17,7 +17,7 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..EventDispatcher = $get(EventDispatcher,##class(TECH.PubSub.impl.EventDispatcher).%New())
+	set ..EventDispatcher = $$$Implementation(EventDispatcher,##class(TECH.PubSub.impl.EventDispatcher).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>