Index: zTryout/JCL/Code.cls.xml
===================================================================
diff -u -r35088 -r35337
--- zTryout/JCL/Code.cls.xml	(.../Code.cls.xml)	(revision 35088)
+++ zTryout/JCL/Code.cls.xml	(.../Code.cls.xml)	(revision 35337)
@@ -3,25 +3,48 @@
 <Class name="zTryout.JCL.Code">
 <ClassType/>
 <ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Super>TECH.RegisteredObject</Super>
 
 <Method name="Go">
 <ClassMethod>1</ClassMethod>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	set svnHelper = ##class(svn.Helper).%New()
 	
-	#dim DerivedClassIterator As TECH.Iterator = ##class(TECH.ClassUtils).GetDerivedClassIterator("TECH.PubSub.EventData")
+	#dim DerivedClassIterator As TECH.Iterator = ##class(TECH.ClassUtils).GetDerivedClassIterator("TECH.PubSub.Event")
 	while DerivedClassIterator.HasNext() {
 		#dim Classname As %String = DerivedClassIterator.Next()
+		
+		continue:##class(TECH.ClassUtils).IsAbstract(Classname)
+		
+		#dim Class As TECH.PubSub.Event = $classmethod(Classname,"%New","")
+		
 		set cd = ##class(%Dictionary.ClassDefinition).%OpenId(Classname)
-		set ParameterDefinition = ##class(%Dictionary.ParameterDefinition).%New()
-		set ParameterDefinition.Default = Classname
-		set ParameterDefinition.Name = "XMLTYPE"
-		set ParameterDefinition.Type = "%String"
-		set ParameterDefinition.parent = cd
-		do ParameterDefinition.%Save()
 		
+		if $$$Not(##class(%Dictionary.MethodDefinition).%ExistsId(Classname_"||Type")) {
+			set md = ##class(%Dictionary.MethodDefinition).%New()	
+		} else {
+			set md = ##class(%Dictionary.MethodDefinition).%OpenId(Classname_"||Type")
+		}	
+		set md.Name = "Type"
+		set md.ReturnType = "%String"
+		set md.Private = 0
+		set md.ClassMethod = 1
+		set md.SequenceNumber = 1
+		do md.Implementation.Write($$$TAB_"quit "_$$$TussenQuotes(Class.Type))
+		set md.parent = cd
+		do md.%Save()
+		
+		do ##class(%Dictionary.MethodDefinition).%DeleteId(Classname_"||%OnNew")
+		
+		do $system.OBJ.Compile(Classname)
+
+		if $classmethod(Classname,"Type")=##class(TECH.StringUtils).GetLastPart(Classname,".") {
+			do ##class(%Dictionary.MethodDefinition).%DeleteId(Classname_"||Type")
+		}
+		
+		do $system.OBJ.Compile(Classname)
+				
 		do svnHelper.SVNExport(Classname_".cls")
 	}
 ]]></Implementation>