--- a/reports/Builder__TestReportFormat.st	Mon Nov 14 23:43:14 2016 +0000
+++ b/reports/Builder__TestReportFormat.st	Mon Dec 05 06:48:09 2016 +0100
@@ -303,18 +303,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:[
@@ -324,11 +324,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:[
@@ -339,12 +339,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;
@@ -364,10 +364,10 @@
             stream nextPutAll:'    <system-out><!![CDATA['; cr.
             self writeCDATA: outcome collectedOutput.
             stream nextPutAll:']]> </system-out>'; cr.
-        ].   
+        ].
     ].
 
-    stream tab; 
+    stream tab;
             nextPutAll: '</testcase>'; cr.