--- a/reports/Builder__TestReportFormat.st	Thu Mar 31 23:58:20 2016 +0200
+++ b/reports/Builder__TestReportFormat.st	Tue Aug 16 14:41:22 2016 +0200
@@ -277,18 +277,18 @@
 writeTestCase:testcase outcome:outcome time:time exception: exception stacktrace:stacktrace
     | result |
 
-    outcome result == TestResult statePass ifTrue:[ 
+    outcome result == TestResult statePass ifTrue:[
         result := #pass.
-    ] ifFalse:[ 
-        outcome result == TestResult stateFail ifTrue:[ 
+    ] ifFalse:[
+        outcome result == TestResult stateFail ifTrue:[
             result := #failure.
             failures := failures + 1
-        ] ifFalse:[ 
-            outcome result == TestResult stateError ifTrue:[ 
+        ] ifFalse:[
+            outcome result == TestResult stateError ifTrue:[
                 result := #error.
                 errors := errors + 1.
-            ] ifFalse:[ 
-                outcome result == TestResult stateSkip ifTrue:[ 
+            ] ifFalse:[
+                outcome result == TestResult stateSkip ifTrue:[
                     result := #skip.
                     skipped := skipped + 1
                 ] ifFalse:[
@@ -298,11 +298,11 @@
         ].
     ].
 
-    stream tab; 
-            nextPutAll: '<testcase classname="'; 
-            nextPutAll: (self encode: testcase nameForHDTestReport); 
-            nextPutAll: '" name="'; 
-            nextPutAll: (self encode: testcase selectorForHDTestReport); 
+    stream tab;
+            nextPutAll: '<testcase classname="';
+            nextPutAll: (self encode: testcase nameForHDTestReport);
+            nextPutAll: '" name="';
+            nextPutAll: (self encode: testcase selectorForHDTestReport);
             nextPutAll: '" time="'; print: (time ? 0) / 1000.0; nextPutAll: '">'; cr.
 
     result == #skip ifTrue:[
@@ -313,12 +313,12 @@
 
             exception isNil ifTrue:[
                 type := 'unknown exception'.
-                message := 'unknown exception occured (no exception details available)'
+                message := 'unknown exception occurred (no exception details available)'
             ] ifFalse:[
                 type := exception class name.
                 message := exception messageText ifNil:[ exception description ].
             ].
-            
+
 
             stream tab; tab;
                 nextPut:$<; nextPutAll: result;
@@ -338,10 +338,10 @@
             stream nextPutAll:'    <system-out><!![CDATA['; cr.
             self writeCDATA: outcome collectedOutput.
             stream nextPutAll:']]> </system-out>'; cr.
-        ].   
+        ].
     ].
 
-    stream tab; 
+    stream tab;
             nextPutAll: '</testcase>'; cr.