--- a/Tools__TestRunner2.st	Thu Nov 24 22:03:16 2016 +0000
+++ b/Tools__TestRunner2.st	Thu Nov 24 22:14:31 2016 +0000
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague
  Copyright (c) 2009-2010 eXept Software AG
@@ -2182,20 +2180,22 @@
 !
 
 makeResultEntryFor: result
-
     | entry children classes label |
+
     label := result name ? ''.
-    result timestamp ifNotNil:
-        [label := label , (result timestamp printStringFormat: timestampFormat)].
+    result timestamp notNil ifTrue:[
+        label := label , (result timestamp printStringFormat: timestampFormat)
+    ].
     entry := ListEntry labeled: label.
     classes := Dictionary new.
-    result tests do:
-        [:test|
+    result tests do: [:test|
         (classes at: test class ifAbsentPut:[OrderedCollection new])
-            add: test].
-    children := classes keysAndValuesCollect:
-                    [:class :tests|
-                    self makeClassEntryFor: class result: result tests: tests].
+            add: test
+    ].
+    children := 
+        classes keysAndValuesCollect: [:class :tests|
+            self makeClassEntryFor: class result: result tests: tests
+        ].
     entry setChildren: children.
     ^entry.