--- a/quickSelfTest/RunUnitTestsStart.st	Fri Oct 13 15:52:36 2017 +0200
+++ b/quickSelfTest/RunUnitTestsStart.st	Fri Oct 13 16:01:55 2017 +0200
@@ -29,21 +29,22 @@
 "
 ! !
 
-!RunUnitTestsStart class methodsFor:'starting'!
+!RunUnitTestsStart class methodsFor:'constants'!
+
+usage
+    Stderr cr.
+    Stderr nextPutLine:'  --help............................this infromation'.
+    Stderr nextPutLine:'  --settingsFile....................path to a stx settings file (may to set compiler options)'.
+    Stderr nextPutLine:'  --runOnlyExpeccoUnitTests.........run only expecco related test cases'.
+    Stderr nextPutLine:'  --resultFile......................path to a file for storing the result as xml'.
+    Stderr nextPutLine:'  --forceTestCase...................class name of a test case (only this test case will be executed)'.
+! !
+
+!RunUnitTestsStart class methodsFor:'startup'!
 
 main:argv
     |allPackageIDs|
 
-    (argv 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.
-    ].
-
     self verboseInfo:('starting application').
     self startStartBlockProcess.
 
@@ -74,6 +75,15 @@
     "run the unit tests"
     RunUnitTests runWithCompiledUnitTestClasses:true.
     RegressionTests::IntegerTest. "/ just to get the ref for building make files
+!
+
+setupSmalltalkFromArguments:argv
+    (argv includes:'/?') ifTrue:[
+        self usage.
+        AbortOperationRequest raise.
+    ].
+
+    ^ super setupSmalltalkFromArguments:argv
 ! !
 
 !RunUnitTestsStart class methodsFor:'documentation'!