Index: AXaif/ClassCleanupTool.cls.xml
===================================================================
diff -u -r33995 -r36352
--- AXaif/ClassCleanupTool.cls.xml	(.../ClassCleanupTool.cls.xml)	(revision 33995)
+++ AXaif/ClassCleanupTool.cls.xml	(.../ClassCleanupTool.cls.xml)	(revision 36352)
@@ -7,10 +7,12 @@
 <Implementation><![CDATA[
 	set svnRepo = ##class(svn.Repository).%OpenId(1)
 	
-	Set Query = ##class(TECH.DynamicQuery).%New("SELECT Id FROM %Dictionary.ClassDefinition WHERE Id [ 'AXaif.'")
+	Set Query = ##class(TECH.DynamicQuery).%New("SELECT Id FROM %Dictionary.ClassDefinition WHERE Id [ 'APPS.AKP.AankoopControle.BLUM.XML'")
 	#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GetResultSet(Query)
 	while ResultSet.Next() {
 		#dim Class As %Dictionary.ClassDefinition = ##class(%Dictionary.ClassDefinition).%OpenId(ResultSet.GetData(1))
+		set Class.Super = "%SerialObject,%XML.Adaptor"
+		set Class.ClassType = "serial"
 		do Class.DescriptionReset()
 		do Class.%Save()
 		do svnRepo.ExportNonRoutine(,Class.Name_".cls")