Index: TECH/Events/UGLYPickingEventData.cls.xml
===================================================================
diff -u -r2499 -r3236
--- TECH/Events/UGLYPickingEventData.cls.xml	(.../UGLYPickingEventData.cls.xml)	(revision 2499)
+++ TECH/Events/UGLYPickingEventData.cls.xml	(.../UGLYPickingEventData.cls.xml)	(revision 3236)
@@ -12,11 +12,12 @@
 
 <Property name="ConsNr">
 <Type>%String</Type>
+<Required>1</Required>
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>ConsNr:%String</FormalSpec>
+<FormalSpec>ConsNr:%String=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -30,7 +31,6 @@
 <Type>%Library.CacheSerialState</Type>
 <State>UGLYPickingEventDataState</State>
 <Data name="UGLYPickingEventDataState">
-<Structure>listnode</Structure>
 <Subscript>"TECH.Events.UGLYPickingEventData"</Subscript>
 <Value name="1">
 <Value>ConsNr</Value>