Index: vhUnitTest/Manager.cls.xml
===================================================================
diff -u -r1070 -r1133
--- vhUnitTest/Manager.cls.xml	(.../Manager.cls.xml)	(revision 1070)
+++ vhUnitTest/Manager.cls.xml	(.../Manager.cls.xml)	(revision 1133)
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408U)" ts="2011-04-28 14:27:36">
+<Export generator="Cache" version="9">
 <Class name="vhUnitTest.Manager">
 <Description>
 Adopted from InterSystems's %UnitTest.Manager by logist (Dimas ltd., Russia)
@@ -12,8 +12,6 @@
 <IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62209,52056.366104</TimeChanged>
-<TimeCreated>59429,65352.216564</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="LogIndex">
@@ -156,13 +154,13 @@
  Do ..LogStateBegin(suite,class) Do  Do ..LogStateEnd(suite,class)
  . Set testcase=$zobjclassmethod(class,"%New",##this)
  . Set testcase.Debug=..Debug
- . Set $zt= "MethErrorOnBeforeAllTests"
+ . Set:'..Debug $zt= "MethErrorOnBeforeAllTests"
  . Set sc=testcase.OnBeforeAllTests() If $$$ISERR(sc) Do ..LogStateStatus(sc,"OnBeforeAllTests") Quit
 
  . Set method="" For  Set method=$$$comMemberNext(class,$$$cCLASSmethod,method) q:method=""  If $e(method,1,4)="Test" Do
  . . Do ..LogStateBegin(suite,class,method) Do  Do ..LogStateEnd(suite,class,method)
  . . . Set success=0
- . . . Set $zt="MethError"
+ . . . Set:'..Debug $zt="MethError"
  . . . Set sc=testcase.OnBeforeOneTest(method) If $$$ISERR(sc) Do ..LogStateStatus(sc,"OnBeforeOneTest") Quit
  . . . Set zhbeg=$zh Do $zobjmethod(testcase,method) Set zhend=$zh
  . . . Set ..TestCount=..TestCount+1
@@ -173,7 +171,7 @@
  . . . Quit
  . Goto AfterAllTests
 MethErrorOnBeforeAllTests . Set zhend=$zh Do ..LogStateStatus($$$ERROR($$$CacheError,$ze_":"_$Text(@$Piece($ze,">",2,32767))),"OnBeforeAllTests")
-AfterAllTests . Set $zt= "MethErrorOnAfterAllTests"
+AfterAllTests . Set:'..Debug $zt= "MethErrorOnAfterAllTests"
  . Set sc=testcase.OnAfterAllTests() If $$$ISERR(sc) Do ..LogStateStatus(sc,"OnAfterAllTests") Quit
  . Goto Einde
 MethErrorOnAfterAllTests . Set zhend=$zh Do ..LogStateStatus($$$ERROR($$$CacheError,$ze_":"_$Text(@$Piece($ze,">",2,32767))),"OnAfterAllTests") Goto Einde
@@ -389,5 +387,4 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2013130553"/>
 </Export>