Index: svn/Deploy.cls.xml =================================================================== diff -u -r1678 -r1718 --- svn/Deploy.cls.xml (.../Deploy.cls.xml) (revision 1678) +++ svn/Deploy.cls.xml (.../Deploy.cls.xml) (revision 1718) @@ -21,10 +21,13 @@ set rsClass=##class(%ResultSet).%New("%Dictionary.ClassDefinitionQuery:SubclassOf") do rsClass.Execute("svn.Deploy") while rsClass.Next() { - set Class = rsClass.Data("Name") - if ##class(%Dictionary.CompiledClass).%ExistsId(Class) { - do $zobjClassMethod(Class,"Execute") - } + #dim ClassName As %String = rsClass.Data("Name") + + continue:$$$Not(##class(%Dictionary.CompiledClass).%ExistsId(ClassName)) + continue:##class(TECH.ClassUtils).IsAbstract(ClassName) + + do $classmethod(ClassName,"Execute") + } ]]> @@ -35,6 +38,8 @@ 1 1 + + +1 +1 +