Index: Tools/Test/Manager.cls.xml
===================================================================
diff -u -r2257 -r2591
--- Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 2257)
+++ Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 2591)
@@ -119,7 +119,7 @@
 	}
 	while itSubstring.HasNext() {
 		#dim Substring As %String = itSubstring.Next()
-		write !,"do ##class("_manager.%ClassName(1)_").RunTest("""","""_Substring_""")"
+		write !,Substring_".cls() -- do ##class("_manager.%ClassName(1)_").RunTest("""","""_Substring_""")"
 		do manager.RunSuite(qualifiers,,Substring)
 	}
  	do manager.DumpFails()