Index: TECH/PubSub/Event.cls.xml
===================================================================
diff -u -r95 -r2533
--- TECH/PubSub/Event.cls.xml	(.../Event.cls.xml)	(revision 95)
+++ TECH/PubSub/Event.cls.xml	(.../Event.cls.xml)	(revision 2533)
@@ -27,6 +27,7 @@
 <Implementation><![CDATA[
  	Set ..Data = Data
 	Set ..TijdCreatie = $$HToNum^vhLib()
+	Set ..Type = ..%ClassName(1)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -36,7 +37,6 @@
 <State>EventState</State>
 <StreamLocation>^TECH.PubSub.EventS</StreamLocation>
 <Data name="EventState">
-<Structure>listnode</Structure>
 <Subscript>"TECH.PubSub.Event"</Subscript>
 <Value name="1">
 <Value>Data</Value>