--- a/TestResultReporter.st	Sat Aug 06 11:29:53 2011 +0200
+++ b/TestResultReporter.st	Sat Aug 06 18:15:05 2011 +0200
@@ -343,6 +343,16 @@
 
 !TestResultReporter methodsFor:'reporting - xml-jUnit'!
 
+errorMessageFromDetail:detail
+    "Smalltalk/X dialect detection..."
+    ((Smalltalk respondsTo: #isSmalltalkX) and:[Smalltalk isSmalltalkX]) ifTrue:[ 
+        ^ detail description
+    ].
+    ^ nil
+
+    "Created: / 06-08-2011 / 18:14:31 / cg"
+!
+
 reportXml_jUnit
     "jUnit-like XML unittest report format"
 
@@ -376,13 +386,22 @@
 !
 
 reportXml_jUnitResultAndTraceback:test state:state
-    |stateString errorMessage|
+    |stateTag errorMessage|
 
-    stateString := (state = 'error') ifTrue:['error'] ifFalse:['failure'].
-    errorMessage := 'no message given'.
+    (state = 'error') ifTrue:[
+        stateTag := 'error'.
+        errorMessage := 'unclassified error'.
+    ] ifFalse:[
+        stateTag := 'failure'.
+        errorMessage := 'unclassified failure'.
+    ].
+
+    test exceptionDetail notNil ifTrue:[
+        errorMessage := self errorMessageFromDetail:test exceptionDetail
+    ].
 
     stream
-        nextPutLine:('    <%1 message="%2">' bindWith:stateString with:errorMessage).
+        nextPutLine:('    <%1 message="%2">' bindWith:stateTag with:errorMessage).
 
     "
         Prints a traceback to the stream.
@@ -395,7 +414,7 @@
     ].
 
     stream
-        nextPutLine:('    </%1>' bindWith:stateString).
+        nextPutLine:('    </%1>' bindWith:stateTag).
 
     "Created: / 05-08-2011 / 15:40:09 / cg"
 !
@@ -673,11 +692,11 @@
 !TestResultReporter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.26 2011-08-05 14:43:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.27 2011-08-06 16:15:05 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.26 2011-08-05 14:43:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.27 2011-08-06 16:15:05 cg Exp $'
 !
 
 version_SVN