--- a/Tools__TestRunner2.st	Mon Jun 06 12:37:27 2016 +0100
+++ b/Tools__TestRunner2.st	Thu Jun 09 01:48:06 2016 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague
  Copyright (c) 2009-2010 eXept Software AG
@@ -2240,16 +2242,31 @@
 
 !TestRunner2::ResultList::ListEntry class methodsFor:'initialization'!
 
-initialize
-    "Invoked at system start or when the class is dynamically loaded."
-
-    "/ please change as required (and remove this comment)
-
-    PassedText := ' [passed]' withColor: Tools::TestRunner2 passedColor darker.
-    FailedText := ' [','failed' allBold,']' withColor: Tools::TestRunner2 failedColor "darker".
-    ErrorText := ' [','error' allBold,']' withColor: Tools::TestRunner2 errorColor "darker".
-
-    "Modified: / 07-02-2010 / 15:06:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+errorText
+    ErrorText isNil ifTrue:[
+        ErrorText := ' [','error' allBold,']' withColor: Tools::TestRunner2 errorColor "darker".    
+    ].
+    ^ ErrorText
+
+    "Created: / 06-06-2016 / 14:41:59 / cg"
+!
+
+failedText
+    FailedText isNil ifTrue:[
+        FailedText := ' [','failed' allBold,']' withColor: Tools::TestRunner2 failedColor "darker".
+    ].
+    ^ FailedText
+
+    "Created: / 06-06-2016 / 14:41:40 / cg"
+!
+
+passedText
+    PassedText isNil ifTrue:[
+        PassedText := ' [passed]' withColor: Tools::TestRunner2 passedColor darker.
+    ].
+    ^ PassedText
+
+    "Created: / 06-06-2016 / 14:41:16 / cg"
 ! !
 
 !TestRunner2::ResultList::ListEntry class methodsFor:'instance creation'!
@@ -2273,24 +2290,25 @@
 !
 
 label
-
     | result |
+
     result := self result.
-    realLabel ifNil:
-        [realLabel := label.
+    realLabel ifNil:[
+        realLabel := label.
         test ifNotNil:[
-            result == #passed ifTrue:[realLabel := realLabel , PassedText].
-            result == #error ifTrue:[realLabel := realLabel , ErrorText].
-            result == #failed ifTrue:[realLabel := realLabel , FailedText].
+            result == #passed ifTrue:[realLabel := realLabel , self class passedText].
+            result == #error ifTrue:[realLabel := realLabel , self class errorText].
+            result == #failed ifTrue:[realLabel := realLabel , self class failedText].
         ] ifNil: [
             realLabel := realLabel , self summary.
         ]        
-        ].
+    ].
 
     ^ realLabel
 
     "Modified: / 07-02-2010 / 18:28:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 08-02-2010 / 10:15:35 / Jan Vrany <jan,vrany@fit.cvut.cz>"
+    "Modified (format): / 06-06-2016 / 14:43:01 / cg"
 !
 
 label:aText