Index: DOM/AKP/event/Cache05GeproduceerdEvent.cls.xml
===================================================================
diff -u -r51992 -r52055
--- DOM/AKP/event/Cache05GeproduceerdEvent.cls.xml	(.../Cache05GeproduceerdEvent.cls.xml)	(revision 51992)
+++ DOM/AKP/event/Cache05GeproduceerdEvent.cls.xml	(.../Cache05GeproduceerdEvent.cls.xml)	(revision 52055)
@@ -6,6 +6,17 @@
 <Super>TECH.PubSub.Event</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Method name="%OnNew">
+<FormalSpec>Data:TECH.PubSub.EventData</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+ 	Set ..Type = "Cache05Geproduceerd"
+	Quit ##super(Data)
+]]></Implementation>
+</Method>
+
 <Method name="Type">
 <ClassMethod>1</ClassMethod>
 <ReturnType>%String</ReturnType>