Index: TECH/Events/UGLYPickingEventData.cls.xml
===================================================================
diff -u -r9 -r2499
--- TECH/Events/UGLYPickingEventData.cls.xml	(.../UGLYPickingEventData.cls.xml)	(revision 9)
+++ TECH/Events/UGLYPickingEventData.cls.xml	(.../UGLYPickingEventData.cls.xml)	(revision 2499)
@@ -5,6 +5,11 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.PubSub.EventData</Super>
 
+<Parameter name="XMLTYPE">
+<Type>%String</Type>
+<Default>TECH.Events.UGLYPickingEventData</Default>
+</Parameter>
+
 <Property name="ConsNr">
 <Type>%String</Type>
 <Parameter name="TRUNCATE" value="1"/>