Index: TECH/Events/UGLYPickingStartedEvent.cls.xml
===================================================================
diff -u -r9 -r2545
--- TECH/Events/UGLYPickingStartedEvent.cls.xml	(.../UGLYPickingStartedEvent.cls.xml)	(revision 9)
+++ TECH/Events/UGLYPickingStartedEvent.cls.xml	(.../UGLYPickingStartedEvent.cls.xml)	(revision 2545)
@@ -5,17 +5,6 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.PubSub.Event</Super>
 
-<Method name="%OnNew">
-<FormalSpec>Data:TECH.Events.UGLYPickingEventData</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..Type = "UGLYPickingStartedEvent"
- 	Quit ##super(Data)
-]]></Implementation>
-</Method>
-
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 </Storage>