Index: TECH/PubSub/impl/EventQueue.cls.xml
===================================================================
diff -u -r54159 -r54162
--- TECH/PubSub/impl/EventQueue.cls.xml	(.../EventQueue.cls.xml)	(revision 54159)
+++ TECH/PubSub/impl/EventQueue.cls.xml	(.../EventQueue.cls.xml)	(revision 54162)
@@ -20,7 +20,7 @@
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set WachtendEventAanmaken = WachtendEventAanmaken
+	Set ..WachtendEventAanmaken = WachtendEventAanmaken
 	Set ..EventList = ##class(%ListOfObjects).%New()
 	 
 	Quit $$$OK