--- a/TestResultReporter.st	Thu Oct 25 00:43:10 2012 +0200
+++ b/TestResultReporter.st	Thu Oct 25 00:44:32 2012 +0200
@@ -455,6 +455,7 @@
         nextPutAll: '<testsuite';
         nextPutAll:(' tests="%1">' bindWith:result runCount);
         nextPutAll:(' timestamp="%1">' bindWith:result timestamp printStringIso8601Format);
+        nextPutAll:(' time="%1">' bindWith:result executionTime);
         nextPutAll:(' errors="%1"' bindWith:result errors size);
         nextPutAll:(' failures="%1"' bindWith:result failures size);
         nextPutAll:(' hostname="%1"' bindWith:OperatingSystem getHostName);
@@ -462,11 +463,17 @@
         nextPutLine: '>'.
     stream
         nextPutLine: '  <properties>';
+        nextPutLine: '    <property name="programmingLanguage" value="Smalltalk" />';
         nextPutLine: '    <property name="smalltalk.vendor" value="exept Software AG" />';
         nextPutLine: '    <property name="smalltalk.compiler" value="Smalltalk/X" />';
         nextPutLine:('    <property name="smalltalk.version" value="%1" />'bindWith:Smalltalk versionString);
         nextPutLine:('    <property name="os.name" value="%1" />' bindWith:OperatingSystem osName);
+        nextPutLine:('    <property name="os.arch" value="%1" />' bindWith:OperatingSystem getCPUType);
         nextPutLine:('    <property name="user.name" value="%1" />' bindWith:OperatingSystem getLoginName);
+        nextPutLine:('    <property name="user.language" value="%1" />' bindWith:Smalltalk language).
+"/    stream
+"/        nextPutLine:('    <property name="smalltalk.libbasic.version" value="%1" />'bindWith:stx_libbasic versionString).
+    stream
         nextPutLine: '  </properties>'.
 
     result passedOutcomes  do:[:eachOutcome | self reportXml_jUnitTest: eachOutcome ].
@@ -795,11 +802,11 @@
 !TestResultReporter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.37 2012-10-24 21:55:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.38 2012-10-24 22:44:32 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.37 2012-10-24 21:55:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.38 2012-10-24 22:44:32 cg Exp $'
 !
 
 version_SVN