--- a/TestCase.st	Thu Jul 13 15:14:09 2017 +0200
+++ b/TestCase.st	Wed Jul 26 12:46:18 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/sunit' }"
 
 "{ NameSpace: Smalltalk }"
@@ -454,10 +456,13 @@
 !TestCase class methodsFor:'running'!
 
 run
-    self suite run
+    "run myself as a suite; return the result"
+
+    ^ self suite run
 
     "
      SOAP::XeXMLTests run
+     RegressionTests::OperatingSystemTest run
     "
 ! !
 
@@ -853,6 +858,7 @@
 !
 
 run
+    "run this suite; return the result"
 
     ^self run: TestResult defaultResultClass new
 
@@ -860,6 +866,7 @@
 !
 
 run: aResult
+    "run this suite; fill and return aResult"
 
     ^self run: aResult beforeEachDo: [:test :result|] afterEachDo: [:test :result|]