Index: vhUnitTest/TECH/Persistent/OnAfterSave/OnAfterSaveEvent.cls.xml
===================================================================
diff -u -r957 -r2549
--- vhUnitTest/TECH/Persistent/OnAfterSave/OnAfterSaveEvent.cls.xml	(.../OnAfterSaveEvent.cls.xml)	(revision 957)
+++ vhUnitTest/TECH/Persistent/OnAfterSave/OnAfterSaveEvent.cls.xml	(.../OnAfterSaveEvent.cls.xml)	(revision 2549)
@@ -3,14 +3,10 @@
 <Class name="vhUnitTest.TECH.Persistent.OnAfterSave.OnAfterSaveEvent">
 <Super>TECH.PubSub.Event</Super>
 
-<Method name="%OnNew">
-<FormalSpec>Data:TECH.PubSub.EventData</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
- 	Set ..Type = "vhUnitTestTECHPersistentOnAfterSaveEvent"
-	Quit ##super(Data)
+<Method name="Type">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit "vhUnitTestTECHPersistentOnAfterSaveEvent"
 ]]></Implementation>
 </Method>