--- a/TestResultReporter.st	Tue Nov 06 11:13:50 2012 +0100
+++ b/TestResultReporter.st	Tue Nov 06 18:44:41 2012 +0100
@@ -510,7 +510,7 @@
     "
     errorMessage := self errorMessageFromExceptionDetailOf:testOutcome.
     errorType := self errorTypeFromExceptionDetailOf:testOutcome.
-    errorMessage := errorMessage copyReplaceAll:$" withAll:'&quote;'.
+    errorMessage := errorMessage copyReplaceAll:$" withAll:'"'.
 
     stream
         nextPutAll:('    <%1 message="%2" type="%3">' bindWith:stateTag with:errorMessage with:errorType);
@@ -823,11 +823,11 @@
 !TestResultReporter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.44 2012-11-06 10:13:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.45 2012-11-06 17:44:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.44 2012-11-06 10:13:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.45 2012-11-06 17:44:41 cg Exp $'
 !
 
 version_SVN