Index: vhUnitTest/Manager.cls.xml
===================================================================
diff -u -r1359 -r1949
--- vhUnitTest/Manager.cls.xml	(.../Manager.cls.xml)	(revision 1359)
+++ vhUnitTest/Manager.cls.xml	(.../Manager.cls.xml)	(revision 1949)
@@ -168,14 +168,14 @@
  . . . Do ..LogMessage("Duration of execution: "_(zhend-zhbeg)_" sec.")
  . . . Set sc=testcase.OnAfterOneTest(method) If $$$ISERR(sc) Do ..LogStateStatus(sc,"OnAfterOneTest") Quit
  . . . Quit
-MethError	. . . Set zhend=$zh Do ..LogStateStatus($$$ERROR($$$CacheError,$ze_":"_$Text(@$Piece($ze,">",2,32767))),method)
+MethError	. . . Set zhend=$zh Do ..LogStateStatus($$$ERROR($$$CacheError,##class(TECH.ExceptionHandler).Catch().ToString()),method)
  . . . Quit
  . Goto AfterAllTests
-MethErrorOnBeforeAllTests . Set zhend=$zh Do ..LogStateStatus($$$ERROR($$$CacheError,$ze_":"_$Text(@$Piece($ze,">",2,32767))),"OnBeforeAllTests")
+MethErrorOnBeforeAllTests . Set zhend=$zh Do ..LogStateStatus($$$ERROR($$$CacheError,##class(TECH.ExceptionHandler).Catch().ToString()),"OnBeforeAllTests")
 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
+MethErrorOnAfterAllTests . Set zhend=$zh Do ..LogStateStatus($$$ERROR($$$CacheError,##class(TECH.ExceptionHandler).Catch().ToString()),"OnAfterAllTests") Goto Einde
 Einde
  . Set $zt = ""
  . Kill testcase