--- a/RegressionTests__ExternalStreamTest.st	Mon Oct 16 10:43:48 2017 +0200
+++ b/RegressionTests__ExternalStreamTest.st	Mon Oct 16 10:43:55 2017 +0200
@@ -41,16 +41,9 @@
 !ExternalStreamTest methodsFor:'tests'!
 
 testCopyFile1
-    |nameOfSTXExecutable stxDirectory pathName1 pathName2|
+    |stxDirectory pathName1 pathName2|
 
-    nameOfSTXExecutable := OperatingSystem nameOfSTXExecutable directory.
-    (nameOfSTXExecutable pathName includesSubString:'quickSelfTest') ifTrue:[
-        "this test is called by /stx/goodies/builder/quickSelfTest"
-        stxDirectory := nameOfSTXExecutable asFilename directory directory directory / 'projects' / 'smalltalk'.
-    ] ifFalse:[
-        stxDirectory := nameOfSTXExecutable asFilename.
-    ].
-
+    stxDirectory := Helper smalltalkDirectory.
     pathName1 := (stxDirectory / 'smalltalk.rc') pathName.
     pathName2 := (stxDirectory / 'smalltalk.rc2') pathName.
     self assert:(pathName1 asFilename exists).