--- a/TestResultReporter.st	Fri Aug 05 16:33:40 2011 +0200
+++ b/TestResultReporter.st	Fri Aug 05 16:35:15 2011 +0200
@@ -414,12 +414,14 @@
         nextPutAll:'  <testcase classname="'; nextPutAll:testClassName; nextPutAll:'"'; 
         nextPutAll:' name="'; nextPutAll: test selector; nextPutAll:'"';
         nextPutAll:' status="'; nextPutAll: testResult; nextPutAll:'"';
-        nextPutAll:' time="'; nextPutAll: executionTime; nextPutAll:'"';
-        nextPutLine:'>'.
-
-    testResult ~= #success ifTrue:[self reportXml_jUnitResultAndTraceback:test state:testResult].
-
-    stream nextPutLine:'  </testcase>'.
+        nextPutAll:' time="'; nextPutAll: executionTime; nextPutAll:'"'.
+    testResult = #success ifTrue:[
+        stream nextPutLine:' />'.
+    ] ifFalse:[
+        stream nextPutLine:'>'.
+        self reportXml_jUnitResultAndTraceback:test state:testResult.
+        stream nextPutLine:'  </testcase>'.
+    ].
 
     "Created: / 05-08-2011 / 15:22:13 / cg"
 !
@@ -670,11 +672,11 @@
 !TestResultReporter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.21 2011-08-05 14:33:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.22 2011-08-05 14:35:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.21 2011-08-05 14:33:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.22 2011-08-05 14:35:15 cg Exp $'
 !
 
 version_SVN