Index: Tools/Test/Manager.cls.xml
===================================================================
diff -u -r2123 -r2162
--- Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 2123)
+++ Tools/Test/Manager.cls.xml	(.../Manager.cls.xml)	(revision 2162)
@@ -365,7 +365,7 @@
 	Set suite=i%TheStack(i%TheStack,"suite")
 	Set case=i%TheStack(i%TheStack,"case")
 	Set method=i%TheStack(i%TheStack,"method")
-	Set message="0:"_case_":"_method_":"_action_"():"_errortext
+	Set message="0~"_case_"~"_method_"~"_action_"()~"_errortext
 	If case="" {
 		Set i%TheLog(suite)=message
 	} Elseif method="" {
@@ -380,7 +380,12 @@
 
 <Method name="LogException">
 <FormalSpec>Exception:TECH.Exceptions.Exception,action:%String=""</FormalSpec>
-<Implementation><![CDATA[	Do ..LogErrorMessage(Exception.GeefOmschrijving()_" "_Exception.GeefErrorInformatie(),action)
+<Implementation><![CDATA[
+	if ..Qualifiers.Debug {
+		do ..LogErrorMessage(Exception.ToString(),action)
+	} else {
+		do ..LogErrorMessage(Exception.GeefOmschrijving()_" "_Exception.GeefErrorInformatie(),action)
+	}
 ]]></Implementation>
 </Method>
 
@@ -410,7 +415,7 @@
  Set method=i%TheStack(i%TheStack,"method")
  If method="" Quit
  Set next=$o(i%TheLog(suite,case,method,""),-1)+1
- Set i%TheLog(suite,case,method,next)="1:LogMessage:"_$g(message)
+ Set i%TheLog(suite,case,method,next)="1~LogMessage~"_$g(message)
  Do ..PrintLine("LogMessage:"_$g(message),4)
  Quit
 ]]></Implementation>
@@ -435,9 +440,9 @@
 <Implementation><![CDATA[
  If ..Qualifiers.Display'="error" Quit
  Write !
- Write i%TheStack(i%TheStack,"suite"),":"
- Write i%TheStack(i%TheStack,"case"),":"
- Write i%TheStack(i%TheStack,"method"),":"
+ Write i%TheStack(i%TheStack,"suite"),"~"
+ Write i%TheStack(i%TheStack,"case"),"~"
+ Write i%TheStack(i%TheStack,"method"),"~"
  Write !,$g(text),!
  Quit
 ]]></Implementation>
@@ -516,7 +521,8 @@
 	do ..CollectFails(.suite,.case,.method,.action)
 	set itFails = ##class(TECH.ListIterator).%New(..Fails)
 	while itFails.HasNext() {
-		write !,itFails.Next()
+		#dim Line As %String = itFails.Next()
+		write $$$CRLF_$piece(Line,"~",2)_".cls("_$piece(Line,"~",3)_")"_$translate($piece(Line,"~",4,99),"~",":")
 	}
 ]]></Implementation>
 </Method>