Index: Tools/Test/Manager.cls.xml
===================================================================
diff -u -r3256 -r3257
--- Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 3256)
+++ Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 3257)
@@ -302,6 +302,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>