--- a/TestResultReporter.st	Thu Apr 04 01:43:29 2013 +0200
+++ b/TestResultReporter.st	Thu Apr 04 19:37:02 2013 +0200
@@ -447,9 +447,14 @@
     ].
 
     "Smalltalk/X dialect detection..."
-    ((Smalltalk respondsTo: #isSmalltalkX) and:[Smalltalk isSmalltalkX]) ifTrue:[ 
+    ((Smalltalk respondsTo: #isSmalltalkX) and:[Smalltalk isSmalltalkX]) ifTrue:[
+        |exception|
         "class name of the exception"
-        ^ (detail at:#exception) name
+        exception := detail at:#exception.
+        exception isBehavior ifTrue:[
+            ^ exception name.
+        ].
+        ^ exception printString.
     ].
 
     ^ 'unknown error type (no dialect specific extractor)'.
@@ -602,9 +607,9 @@
 
         testOutcome collectedOutput notEmptyOrNil ifTrue:[
             stream
-                nextPutAll:'    <system-out>'; cr;
-                nextPutAll: (testOutcome collectedOutput copyReplaceAll:$" withAll:'&quot;');
-                nextPutAll:'    </system-out>'; cr.
+                nextPutAll:'    <system-out><!![CDATA['; cr;
+                nextPutAll: testOutcome collectedOutput;
+                nextPutAll:']]> </system-out>'; cr.
         ].
 
         stream nextPutAll:'  </testcase>'; cr.
@@ -853,11 +858,11 @@
 !TestResultReporter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.54 2013-03-27 21:41:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.55 2013-04-04 17:37:02 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.54 2013-03-27 21:41:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.55 2013-04-04 17:37:02 stefan Exp $'
 !
 
 version_SVN