Index: Tools/Test/Manager.cls.xml
===================================================================
diff -u -r2818 -r2820
--- Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 2818)
+++ Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 2820)
@@ -247,7 +247,7 @@
  $$$QuitOnError(classQuery.Execute(..#PackagePrefix_".TestCase"))
  while (classQuery.Next() ) {
 	#dim className=classQuery.Data("Name")
-	if $length(Substring) && $$$Not(..IsValidName(className,Substring)) continue
+	if $$$Not(..IsValidName(className,Substring)) continue
 	#dim isAbstract As %Boolean =##class(TECH.ClassUtils).IsAbstract(className)
 	If ('isAbstract) {
 		#dim SkipTestCase As %Boolean = +$zobjclassmethod(className,"%GetParameter","SkipTestCase")