Index: Tools/CompileEnumerator.cls.xml
===================================================================
diff -u -r1545 -r1549
--- Tools/CompileEnumerator.cls.xml	(.../CompileEnumerator.cls.xml)	(revision 1545)
+++ Tools/CompileEnumerator.cls.xml	(.../CompileEnumerator.cls.xml)	(revision 1549)
@@ -19,9 +19,9 @@
 	
 	w "Zoeken...",!!
 	
-	Set ToCompile = ..GeefCompileList(EnumeratorKlasse)
+	do ..BuildCompileMultiDim(EnumeratorKlasse,.mdToCompile)
 	
-	If ($L(ToCompile) > $L(EnumeratorKlasse_".cls"))
+	If ($order(mdToCompile($order(mdToCompile(""))'="")))
 	{
 		Set Input = ""
 		If (VraagBevestiging)
@@ -36,7 +36,7 @@
 		If ('VraagBevestiging) || (Input = "Y")
 		{
 			w !!,"Compileren ...",!!
-			Do $SYSTEM.OBJ.CompileList(ToCompile,"cfvko1",.ErrorLog)
+			Do $SYSTEM.OBJ.CompileList(.mdToCompile,"cfvko1",.ErrorLog)
 		}
 	}
 	Else
@@ -46,12 +46,11 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefCompileList">
+<Method name="BuildCompileMultiDim">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>EnumeratorKlasse:%String</FormalSpec>
-<ReturnType>%String</ReturnType>
+<FormalSpec><![CDATA[EnumeratorKlasse:%String,&mdToCompile]]></FormalSpec>
 <Implementation><![CDATA[
-	Set ToCompile = EnumeratorKlasse_".cls"
+	Set mdToCompile(EnumeratorKlasse_".cls")=""
 	Set ResultSet = ##class(%ResultSet).%New("%Dictionary.ClassDefinitionQuery:Summary")
 	Do ResultSet.Execute()
 	While ResultSet.Next()
@@ -61,65 +60,67 @@
 		If ($Extract(ClassName,1,1) '= "%")
 		{
 			Set ClassDefinition = ##class(TECH.ClassInfo.ClassDefinition).%New(ClassName)
-			If (ClassDefinition.IsPersistent())
-			{
-				If (..BevatProperty(ClassDefinition, EnumeratorKlasse))
+			If $IsObject(ClassDefinition) {
+				If (ClassDefinition.IsPersistent())
 				{
-					Set ToCompile = ToCompile_","_ClassName_".cls"
-					w "Gebruikt in persistente klasse: "_ClassName,!
+					If (..BevatProperty(ClassDefinition, EnumeratorKlasse))
+					{
+						Set mdToCompile(ClassName_".cls")=""
+						w "Gebruikt in persistente klasse: "_ClassName,!
+					}
 				}
-			}
-			
-			If (ClassDefinition.IsWebservice())
-			{
-				Set IsTeCompileren = 0
-				Set TeControlerenLijst = ##class(%ListOfObjects).%New()
-				Set Gecontroleerd = ##class(%ArrayOfDataTypes).%New()
-				Do TeControlerenLijst.Insert(ClassDefinition)
-				Set i = 0
-				While ('IsTeCompileren) && (i<TeControlerenLijst.Count())
+				
+				If (ClassDefinition.IsWebservice())
 				{
-					Set i = i + 1
-					Set TeControleren = TeControlerenLijst.GetAt(i)
-					If ($IsObject(TeControleren))
+					Set IsTeCompileren = 0
+					Set TeControlerenLijst = ##class(%ListOfObjects).%New()
+					Set Gecontroleerd = ##class(%ArrayOfDataTypes).%New()
+					Do TeControlerenLijst.Insert(ClassDefinition)
+					Set i = 0
+					While ('IsTeCompileren) && (i<TeControlerenLijst.Count())
 					{
-						If ('Gecontroleerd.IsDefined(TeControleren.GeefNaam()))
+						Set i = i + 1
+						Set TeControleren = TeControlerenLijst.GetAt(i)
+						If ($IsObject(TeControleren))
 						{
-							Do Gecontroleerd.SetAt("",TeControleren.GeefNaam())
-							If (..BevatProperty(TeControleren, EnumeratorKlasse))
+							If ('Gecontroleerd.IsDefined(TeControleren.GeefNaam()))
 							{
-								Set ToCompile = ToCompile_","_ClassDefinition.GeefNaam()_".cls"
-								w "Gebruikt in webservice: "_ClassDefinition.GeefNaam(),!
-								Set IsTeCompileren = 1
-							}
-							Else
-							{
-								Set PropertiesIterator = TeControleren.GeefProperties()
-								While (PropertiesIterator.HasNext())
+								Do Gecontroleerd.SetAt("",TeControleren.GeefNaam())
+								If (..BevatProperty(TeControleren, EnumeratorKlasse))
 								{
-									Set PropertyDefinition = PropertiesIterator.Next()
-									Do TeControlerenLijst.Insert(##class(TECH.ClassInfo.ClassDefinition).%New(PropertyDefinition.GeefType()))
+									Set mdToCompile(ClassName_".cls")=""
+									w "Gebruikt in webservice: "_ClassDefinition.GeefNaam(),!
+									Set IsTeCompileren = 1
 								}
-								
-								Set MethodsIterator = TeControleren.GeefMethods()
-								While (MethodsIterator.HasNext())
+								Else
 								{
-									Set MethodDefinition = MethodsIterator.Next()
-									Do TeControlerenLijst.Insert(##class(TECH.ClassInfo.ClassDefinition).%New(MethodDefinition.GeefType()))
-									Set ParamatersIterator = MethodDefinition.GeefParameters()
-									While (ParamatersIterator.HasNext())
+									Set PropertiesIterator = TeControleren.GeefProperties()
+									While (PropertiesIterator.HasNext())
 									{
-										Set ParameterDefinition = ParamatersIterator.Next()
-										Do TeControlerenLijst.Insert(##class(TECH.ClassInfo.ClassDefinition).%New(ParameterDefinition.GeefType()))
+										Set PropertyDefinition = PropertiesIterator.Next()
+										Do TeControlerenLijst.Insert(##class(TECH.ClassInfo.ClassDefinition).%New(PropertyDefinition.GeefType()))
 									}
+									
+									Set MethodsIterator = TeControleren.GeefMethods()
+									While (MethodsIterator.HasNext())
+									{
+										Set MethodDefinition = MethodsIterator.Next()
+										Do TeControlerenLijst.Insert(##class(TECH.ClassInfo.ClassDefinition).%New(MethodDefinition.GeefType()))
+										Set ParamatersIterator = MethodDefinition.GeefParameters()
+										While (ParamatersIterator.HasNext())
+										{
+											Set ParameterDefinition = ParamatersIterator.Next()
+											Do TeControlerenLijst.Insert(##class(TECH.ClassInfo.ClassDefinition).%New(ParameterDefinition.GeefType()))
+										}
+									}
+									
+									Set SuperKlassenIterator = TeControleren.GeefSuperKlassen()
+									While (SuperKlassenIterator.HasNext())
+									{
+										Set SuperKlasse = SuperKlassenIterator.Next()
+										Do TeControlerenLijst.Insert(##class(TECH.ClassInfo.ClassDefinition).%New(SuperKlasse))
+									}
 								}
-								
-								Set SuperKlassenIterator = TeControleren.GeefSuperKlassen()
-								While (SuperKlassenIterator.HasNext())
-								{
-									Set SuperKlasse = SuperKlassenIterator.Next()
-									Do TeControlerenLijst.Insert(##class(TECH.ClassInfo.ClassDefinition).%New(SuperKlasse))
-								}
 							}
 						}
 					}
@@ -128,7 +129,7 @@
 		}		
 	}
 	
-	Quit ToCompile
+	Quit
 ]]></Implementation>
 </Method>