--- a/Tools__TestRunner2.st	Thu Nov 24 22:14:31 2016 +0000
+++ b/Tools__TestRunner2.st	Sat Nov 26 22:22:17 2016 +0000
@@ -1265,8 +1265,8 @@
 !
 
 debugError: test
-
     | caughtEx |
+
     caughtEx := nil.
     [
         test debug
@@ -1274,22 +1274,26 @@
         caughtEx := ex.
         ex pass
     ].
-    caughtEx ifNil:
-        [errorListHolder value remove: test.
-        errorListHolder changed].
+    caughtEx isNil ifTrue:[
+        errorListHolder value remove: test.
+        errorListHolder changed
+    ].
     ((caughtEx isKindOf: TestResult resumableFailure)
-        or:[caughtEx isKindOf: TestResult failure]) ifTrue:
-            [errorListHolder value remove: test.
+      or:[caughtEx isKindOf: TestResult failure]
+    ) ifTrue:[
+            errorListHolder value remove: test.
             errorListHolder changed.
             failureListHolder value add: test.
-            failureListHolder changed].
+            failureListHolder changed
+    ].
 
     "Created: / 06-06-2008 / 09:19:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 25-11-2016 / 08:12:50 / cg"
 !
 
 debugFailure: test
-
     | caughtEx |
+
     caughtEx := nil.
     [
         test debug
@@ -1297,11 +1301,13 @@
         caughtEx := ex.
         ex pass
     ].
-    caughtEx ifNil:
-        [failureListHolder value remove: test.
-        failureListHolder changed].
+    caughtEx isNil ifTrue:[
+        failureListHolder value remove: test.
+        failureListHolder changed
+    ].
 
     "Created: / 06-06-2008 / 09:20:00 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 25-11-2016 / 08:12:18 / cg"
 !
 
 runCoverageAction
@@ -1358,30 +1364,28 @@
 !
 
 runErrorsAction
-    "akce na tlacitku Run Errors"
-    
     self runSuite: self errorTestSuite keepFailures: true keepErrors: false
 
     "Modified: / 18-01-2008 / 18:38:33 / janfrog"
     "Modified: / 06-06-2008 / 09:13:30 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified (comment): / 25-11-2016 / 08:13:07 / cg"
 !
 
 runFailuresAction
-    "akce na tlacitku Run Failures"
-    
     self runSuite: self failureTestSuite keepFailures: false keepErrors: true
 
     "Modified: / 18-01-2008 / 18:38:40 / janfrog"
     "Modified: / 06-06-2008 / 09:13:57 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified (comment): / 25-11-2016 / 08:13:11 / cg"
 !
 
 runProfiledAction
-        "akce na tlacitku Run Profiled"
-        self shouldImplement.
+    self shouldImplement.
+
+    "Modified (comment): / 25-11-2016 / 08:11:05 / cg"
 !
 
 runSelectedAction
-
     | result |
 
     result := self runSuite: self selectedTestSuite.
@@ -1391,6 +1395,7 @@
     "Modified: / 06-06-2008 / 08:51:42 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified: / 19-03-2010 / 08:44:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 04-07-2011 / 23:04:46 / cg"
+    "Modified (format): / 25-11-2016 / 08:13:17 / cg"
 !
 
 runSuite: aTestSuite