Index: Tools/Test/Manager.cls.xml
===================================================================
diff -u -r2820 -r3039
--- Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 2820)
+++ Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 3039)
@@ -243,10 +243,9 @@
  set ..StartTime = $zutil(188)
  set ..StartSeconds = $zh
 
- set classQuery=##class(%ResultSet).%New("%Dictionary.ClassDefinitionQuery:SubclassOf")
- $$$QuitOnError(classQuery.Execute(..#PackagePrefix_".TestCase"))
- while (classQuery.Next() ) {
-	#dim className=classQuery.Data("Name")
+ set ClassIterator = ##class(TECH.ReversedListIterator).%New(..CollectTestNamesToRun())
+ while ClassIterator.HasNext() {
+	 #dim className As %String = ClassIterator.Next()
 	if $$$Not(..IsValidName(className,Substring)) continue
 	#dim isAbstract As %Boolean =##class(TECH.ClassUtils).IsAbstract(className)
 	If ('isAbstract) {
@@ -283,6 +282,20 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CollectTestNamesToRun">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set List = ##class(TECH.ListOfDataTypesOnDisk).%New()
+	set classQuery=##class(%ResultSet).%New("%Dictionary.ClassDefinitionQuery:SubclassOf")
+ 	do classQuery.Execute(..#PackagePrefix_".TestCase")
+ 	while (classQuery.Next() ) {
+		do List.Insert(classQuery.Data("Name"))
+ 	}
+ 	quit List
+]]></Implementation>
+</Method>
+
 <Property name="StoryPattern">
 <Type>%String</Type>
 <InitialExpression>"2.3A3.4N"</InitialExpression>