--- a/quickSelfTest/RunUnitTests.st	Wed Oct 11 12:48:58 2017 +0200
+++ b/quickSelfTest/RunUnitTests.st	Wed Oct 11 12:53:45 2017 +0200
@@ -40,7 +40,7 @@
      cmdArgs
      unitTestSuite
      eachClassName eachClass
-     result index settingsFilePathName|
+     result index settingsFilePathName resultFilePathName|
 
     doRunSpecificUnitTests := false.
     unitTestSuiteName := 'All Unit Tests'.
@@ -56,6 +56,12 @@
 	self logInfo:'ParserFlags makeCommand: ', ParserFlags makeCommand printString.
     ].
 
+    index := cmdArgs indexOf:'--resultFile'.
+    index > 0 ifTrue:[
+	resultFilePathName := cmdArgs at:index + 1.
+	self logInfo:'load settings file: ', resultFilePathName printString.
+    ].
+
     (cmdArgs includes:'--runOnlyExpeccoUnitTests') ifTrue:[
 	self logInfo:'configured to run expecco unit tests only'.
 	doRunSpecificUnitTests := true.
@@ -138,7 +144,7 @@
     TestResultReporter
 	report:result
 	format:#xml_jUnit
-	as:'testresult.xml'.
+	as:resultFilePathName ? 'testresult.xml'.
 
     self logInfo:'summary:'.
     self logInfo:('%1 tests' bindWith:result runCount).