Index: vhUnitTest/Manager.cls.xml
===================================================================
diff -u -r1172 -r1178
--- vhUnitTest/Manager.cls.xml	(.../Manager.cls.xml)	(revision 1172)
+++ vhUnitTest/Manager.cls.xml	(.../Manager.cls.xml)	(revision 1178)
@@ -85,14 +85,13 @@
  set classQuery=##class(%ResultSet).%New("%Dictionary.ClassDefinitionQuery:SubclassOf")
  $$$QuitOnError(classQuery.Execute("vhUnitTest.TestCase"))
  while (classQuery.Next() ) {
-	set className=classQuery.Get("Name")
-	if className["%" continue
-	if (className = "vhUnitTest.TestCase") continue
-    if '$$issubclassof^%occCompile(className,"vhUnitTest.TestCase") continue
+	set className=classQuery.Data("Name")
 	if $L(package),'$$$StartsWithVar(className,package) continue
-	set isAbstract=classQuery.Get("Abstract")
-	if isAbstract continue
-	do manager.RunOneTestCase(testsuite,className) 
+	set isAbstract=##class(%Dictionary.ClassDefinition).%OpenId(className).Abstract
+	If ('IsAbstract)
+	{
+		do manager.RunOneTestCase(testsuite,className)
+	} 
  }
  write !," -- Test cases: " , manager.TestCaseCount, "; Methods: ",manager.TestCount , !
  if 'manager.IsSuccess(testsuite) {