--- a/TestResultReporter.st	Wed Mar 20 19:48:37 2013 +0100
+++ b/TestResultReporter.st	Wed Mar 27 22:41:52 2013 +0100
@@ -715,7 +715,7 @@
         nextPutLine:('      <type><!![CDATA[%1]]></type>' bindWith:osType);
         nextPutLine:('      <version><!![CDATA[%1]]></version>' bindWith:osVersion);
         nextPutLine:'    </os>';
-        nextPutLine:('    <processor arch="%1">' bindWith:cpuType);
+        nextPutLine:('    <processor arch="%1" wordLength="%2">' bindWith:cpuType with:(ExternalAddress pointerSize * 8));
         "/ nextPutLine:('      <frequency> unit="Mhz" cpufreq="%1" />' bindWith:cpuSpeed);
         nextPutLine:'    </processor>';
         nextPutLine:('    <compiler name="%1" version="%2" versiondate="%3" configuration="%4" />' 
@@ -853,13 +853,14 @@
 !TestResultReporter class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.53 2012-11-21 13:55:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.54 2013-03-27 21:41:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.53 2012-11-21 13:55:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/sunit/TestResultReporter.st,v 1.54 2013-03-27 21:41:52 cg Exp $'
 !
 
 version_SVN
     ^ '§Id§'
 ! !
+