Index: Tools/CompileEnumerator.cls.xml
===================================================================
diff -u -r1544 -r1545
--- Tools/CompileEnumerator.cls.xml	(.../CompileEnumerator.cls.xml)	(revision 1544)
+++ Tools/CompileEnumerator.cls.xml	(.../CompileEnumerator.cls.xml)	(revision 1545)
@@ -19,6 +19,38 @@
 	
 	w "Zoeken...",!!
 	
+	Set ToCompile = ..GeefCompileList(EnumeratorKlasse)
+	
+	If ($L(ToCompile) > $L(EnumeratorKlasse_".cls"))
+	{
+		Set Input = ""
+		If (VraagBevestiging)
+		{
+			While (Input '= "Y") && (Input '= "N")
+			{
+				w !,"Wilt u de boven vernoemde klassen hercompileren? (Y/N)",!
+				read Input
+			}
+		}
+		
+		If ('VraagBevestiging) || (Input = "Y")
+		{
+			w !!,"Compileren ...",!!
+			Do $SYSTEM.OBJ.CompileList(ToCompile,"cfvko1",.ErrorLog)
+		}
+	}
+	Else
+	{
+		w !!,"Niks gevonden ...",!!
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefCompileList">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>EnumeratorKlasse:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
 	Set ToCompile = EnumeratorKlasse_".cls"
 	Set ResultSet = ##class(%ResultSet).%New("%Dictionary.ClassDefinitionQuery:Summary")
 	Do ResultSet.Execute()
@@ -96,28 +128,7 @@
 		}		
 	}
 	
-	If ($L(ToCompile) > $L(EnumeratorKlasse_".cls"))
-	{
-		Set Input = ""
-		If (VraagBevestiging)
-		{
-			While (Input '= "Y") && (Input '= "N")
-			{
-				w !,"Wilt u de boven vernoemde klassen hercompileren? (Y/N)",!
-				read Input
-			}
-		}
-		
-		If ('VraagBevestiging) || (Input = "Y")
-		{
-			w !!,"Compileren ...",!!
-			Do $SYSTEM.OBJ.CompileList(ToCompile,"cfvko1",.ErrorLog)
-		}
-	}
-	Else
-	{
-		w !!,"Niks gevonden ...",!!
-	}
+	Quit ToCompile
 ]]></Implementation>
 </Method>