Index: Tools/Test/Report.cls.xml
===================================================================
diff -u -r2159 -r2162
--- Tools/Test/Report.cls.xml	(.../Report.cls.xml)	(revision 2159)
+++ Tools/Test/Report.cls.xml	(.../Report.cls.xml)	(revision 2162)
@@ -248,7 +248,7 @@
  . If ..IsSuccess(namespace,index,suite) { Set status="Passed", styleClass="goed" } Else {Set status="Failed",styleClass="fout" }
  . If +result
  . If    &html<<td class="#(styleClass)#">#(status)#</td>>
- . Else  &html<<td class="#(styleClass)#">#(status_"<br>"_$p(result,":",2,99))#</td>>
+ . Else  &html<<td class="#(styleClass)#">#(status_"<br>"_$p(result,"~",2,99))#</td>>
  . &html<</tr>>
  &html<</table>>
  Quit $$$OK
@@ -303,7 +303,7 @@
  . . If ..IsSuccess(namespace,index,suite,case) { Set color="green",status="Passed" } Else { Set color="red",status="Failed"}
  . . If +result
  . . If    &html<<td align=left><font color="#(color)#"><b>#(status)#</b></font></td>>
- . . Else  &html<<td align=left><font color="#(color)#"><b>#(status_"<br>"_$p(result,":",2,99))#</b></font></td>>
+ . . Else  &html<<td align=left><font color="#(color)#"><b>#(status_"<br>"_$p(result,"~",2,99))#</b></font></td>>
  . . &html<<td align=left><b>>
  . . If $data(@GlobalForTimings@(index,case))  Do
  . . . &html<<div DIV STYLE="width: #(@GlobalForTimings@(index,case)*50)#; background-color: lightgray">#($tr(@GlobalForTimings@(index,case),".",","))#</div>>
@@ -353,7 +353,7 @@
  . If ..IsSuccess(namespace,index,suite,case,method) { Set color="green",status="Passed" } Else { Set color="red",status="Failed" }
  . If +result
  . If    &html<<td align=left><font color="#(color)#"><b>#(status)#</b></font></td>>
- . Else  &html<<td align=left><font color="#(color)#"><b>#(status_"<br>"_$p(result,":",2,99))#</b></font></td>>
+ . Else  &html<<td align=left><font color="#(color)#"><b>#(status_"<br>"_$p(result,"~",2,99))#</b></font></td>>
  . &html<</tr>>
  &html<</table>>
  Quit $$$OK
@@ -386,8 +386,8 @@
  Set action="" For  Set action=$o(@GlobalForLogging@(index,suite,case,method,action)) Quit:action=""  Do
  . Set result=@GlobalForLogging@(index,suite,case,method,action)
  . &html<<tr>>
- . &html<<td valign=top>#($p(result,":",2))#</td>>
- . &html<<td valign=top>#($p(result,":",3,99))#</td>>
+ . &html<<td valign=top>#($p(result,"~",2))#</td>>
+ . &html<<td valign=top>#($p(result,"~",3,99))#</td>>
  . If ..IsSuccess(namespace,index,suite,case,method,action) { Set color="green",status="Passed" } Else { Set color="red",status="Failed" }
  . &html<<td valign=top align=center><font color="#(color)#"><b>#(status)#</b></font></td>>
  . &html<</tr>>
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>