--- a/RegressionTests__ExternalStreamTest.st	Fri Oct 13 14:06:14 2017 +0200
+++ b/RegressionTests__ExternalStreamTest.st	Fri Oct 13 14:07:04 2017 +0200
@@ -43,12 +43,12 @@
 testCopyFile1
     |nameOfSTXExecutable stxDirectory pathName1 pathName2|
 
-    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'.
+    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 directory.
+        stxDirectory := nameOfSTXExecutable asFilename.
     ].
 
     pathName1 := (stxDirectory / 'smalltalk.rc') pathName.
@@ -450,5 +450,9 @@
 
 version
     ^ '$Header$'
+!
+
+version_CVS
+    ^ '$Header$'
 ! !