--- a/RegressionTests__ExternalStreamTest.st	Fri Oct 13 13:31:03 2017 +0200
+++ b/RegressionTests__ExternalStreamTest.st	Fri Oct 13 14:06:14 2017 +0200
@@ -41,13 +41,20 @@
 !ExternalStreamTest methodsFor:'tests'!
 
 testCopyFile1
-	|stxDirectory pathName1 pathName2|
+    |nameOfSTXExecutable stxDirectory pathName1 pathName2|
 
-	stxDirectory := OperatingSystem nameOfSTXExecutable asFilename directory.
-	pathName1 := (stxDirectory / 'smalltalk.rc') pathName.
-	pathName2 := (stxDirectory / 'smalltalk.rc2') pathName.
+    nameOfSTXExecutable := OperatingSystem nameOfSTXExecutable.
+    (nameOfSTXExecutable includesSubString:'quickSelfTest') ifTrue:[
+        "this test is called by /stx/goodies/builder/quickSelfTest/quickSelfTest"
+        stxDirectory := nameOfSTXExecutable asFilename directory directory directory directory /'projects'/'smalltalk'.
+    ] ifFalse:[
+        stxDirectory := nameOfSTXExecutable asFilename directory.
+    ].
+
+    pathName1 := (stxDirectory / 'smalltalk.rc') pathName.
+    pathName2 := (stxDirectory / 'smalltalk.rc2') pathName.
     self assert:(pathName1 asFilename exists).
-	
+        
     pathName1 asFilename copyTo:pathName2.
 
     self assert:(pathName1 asFilename fileSize = pathName2 asFilename fileSize).