--- a/TestResultReporter.st	Mon Nov 05 22:04:38 2012 +0100
+++ b/TestResultReporter.st	Tue Nov 06 03:02:07 2012 +0100
@@ -503,6 +503,7 @@
     "
     errorMessage := self errorMessageFromExceptionDetailOf:testOutcome.
     errorType := self errorTypeFromExceptionDetailOf:testOutcome.
+    errorMessage := errorMessage copyReplaceAll:$" withAll:'&quote;'.
 
     stream
         nextPutAll:('    <%1 message="%2" type="%3">' bindWith:stateTag with:errorMessage with:errorType);
@@ -815,11 +816,11 @@
 !TestResultReporter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.42 2012-11-05 21:04:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.43 2012-11-06 02:02:07 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.42 2012-11-05 21:04:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.43 2012-11-06 02:02:07 cg Exp $'
 !
 
 version_SVN