--- a/quickSelfTest/RunUnitTests.st	Fri Oct 13 13:57:22 2017 +0200
+++ b/quickSelfTest/RunUnitTests.st	Fri Oct 13 15:52:10 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/builder/quickSelfTest' }"
 
 "{ NameSpace: Smalltalk }"
@@ -49,7 +51,6 @@
     debug:debug
 
     |doRunSpecificUnitTests unitTestSuiteName excludedUnitTestClassNames corruptedUnitTestClassNames
-     cmdArgs
      unitTestSuite
      eachClass
      result index
@@ -60,41 +61,30 @@
     excludedUnitTestClassNames := self excludedUnitTestClassNamesForAll.
     corruptedUnitTestClassNames := self corruptedUnitTestClassNames.
 
-    cmdArgs := arguments.
-    (cmdArgs includesAny:#('--help' '/?')) ifTrue:[
-        Stdout showCR:'--help............................this infromation'.
-        Stdout showCR:'--settingsFile....................path to a stx settings file (may to set compiler options)'.
-        Stdout showCR:'--runOnlyExpeccoUnitTests.........run only expecco related test cases'.
-        Stdout showCR:'--resultFile......................path to a file for storing the result as xml'.
-        Stdout showCR:'--forceTestCase...................class name of a test case (only this test case will be executed)'.
-
-        Smalltalk exit.
-    ].
-
-    index := cmdArgs indexOf:'--settingsFile'.
+    index := arguments indexOf:'--settingsFile'.
     index > 0 ifTrue:[
-        settingsFilePathName := cmdArgs at:index + 1.
+        settingsFilePathName := arguments at:index + 1.
         self logInfo:'load settings file: ', settingsFilePathName printString.
         settingsFilePathName asFilename fileIn.
         self logInfo:'ParserFlags makeCommand: ', ParserFlags makeCommand printString.
     ].
 
-    (cmdArgs includes:'--runOnlyExpeccoUnitTests') ifTrue:[
+    (arguments includes:'--runOnlyExpeccoUnitTests') ifTrue:[
         self logInfo:'configured to run expecco unit tests only'.
         doRunSpecificUnitTests := true.
         unitTestSuiteName := 'expecco Unit Tests'.
         excludedUnitTestClassNames := self excludedUnitTestClassNamesForExpecco.
     ].
 
-    index := cmdArgs indexOf:'--resultFile'.
+    index := arguments indexOf:'--resultFile'.
     index > 0 ifTrue:[
-        resultFilePathName := cmdArgs at:index + 1.
+        resultFilePathName := arguments at:index + 1.
         self logInfo:'set custom result file: ', resultFilePathName printString.
     ].
 
-    index := cmdArgs indexOf:'--forceTestCase'.
+    index := arguments indexOf:'--forceTestCase'.
     index > 0 ifTrue:[
-        forceTestCase := cmdArgs at:index + 1.
+        forceTestCase := arguments at:index + 1.
         self logInfo:'set force test case: ', forceTestCase printString.
     ].