Index: TECH/PubSub/EventSubscription.cls.xml
===================================================================
diff -u -r859 -r1060
--- TECH/PubSub/EventSubscription.cls.xml	(.../EventSubscription.cls.xml)	(revision 859)
+++ TECH/PubSub/EventSubscription.cls.xml	(.../EventSubscription.cls.xml)	(revision 1060)
@@ -3,7 +3,7 @@
 <Class name="TECH.PubSub.EventSubscription">
 <ClassType>persistent</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%Persistent</Super>
+<Super>TECH.Persistent</Super>
 
 <Property name="EventType">
 <Type>%String</Type>
@@ -32,7 +32,7 @@
 </Index>
 
 <Method name="%OnNew">
-<FormalSpec>EventType:%String,RespondingClass:%String,RespondingMethod:%String</FormalSpec>
+<FormalSpec>EventType:%String="",RespondingClass:%String="",RespondingMethod:%String=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -52,8 +52,6 @@
 <IndexLocation>^TECH.PubSub.EventSubscriptionI</IndexLocation>
 <StreamLocation>^TECH.PubSub.EventSubscriptionS</StreamLocation>
 <Data name="EventSubscriptionDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>%%CLASSNAME</Value>
 </Value>