Index: vhUnitTest/Manager.cls.xml
===================================================================
diff -u -r1133 -r1172
--- vhUnitTest/Manager.cls.xml	(.../Manager.cls.xml)	(revision 1133)
+++ vhUnitTest/Manager.cls.xml	(.../Manager.cls.xml)	(revision 1172)
@@ -82,8 +82,8 @@
  if $length(package) set testsuite = package
  
  ;set classQuery=##class(%ResultSet).%New("%Dictionary.ClassDefinition:Summary")
- set classQuery=##class(%ResultSet).%New("%Library.CompiledClass:ClassInfo")
- $$$QuitOnError(classQuery.Execute())
+ set classQuery=##class(%ResultSet).%New("%Dictionary.ClassDefinitionQuery:SubclassOf")
+ $$$QuitOnError(classQuery.Execute("vhUnitTest.TestCase"))
  while (classQuery.Next() ) {
 	set className=classQuery.Get("Name")
 	if className["%" continue