Index: TECH/PubSub/Event.cls.xml
===================================================================
diff -u -r2533 -r2548
--- TECH/PubSub/Event.cls.xml	(.../Event.cls.xml)	(revision 2533)
+++ TECH/PubSub/Event.cls.xml	(.../Event.cls.xml)	(revision 2548)
@@ -27,11 +27,18 @@
 <Implementation><![CDATA[
  	Set ..Data = Data
 	Set ..TijdCreatie = $$HToNum^vhLib()
-	Set ..Type = ..%ClassName(1)
+	Set ..Type = ..Type()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="Type">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..%ClassName(0)
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>EventState</State>