--- a/RegressionTests__ExternalStreamTest.st	Mon Sep 18 14:02:30 2017 +0200
+++ b/RegressionTests__ExternalStreamTest.st	Mon Sep 18 14:26:58 2017 +0200
@@ -41,13 +41,18 @@
 !ExternalStreamTest methodsFor:'tests'!
 
 testCopyFile1
-    self assert:('smalltalk.rc' asFilename exists).
-
-    'smalltalk.rc' asFilename copyTo:'smalltalk.rc2'.
+	|stxDirectory pathName1 pathName2|
 
-    self assert:('smalltalk.rc' asFilename fileSize = 'smalltalk.rc2' asFilename fileSize).
-    self assert:('smalltalk.rc' asFilename contentsOfEntireFile = 'smalltalk.rc2' asFilename contentsOfEntireFile).
-    'smalltalk.rc2' asFilename delete.
+	stxDirectory := OperatingSystem 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).
+    self assert:(pathName1 asFilename contentsOfEntireFile = pathName2 asFilename contentsOfEntireFile).
+    pathName2 asFilename delete.
 
     "
      self new testCopyFile1
@@ -56,7 +61,7 @@
 
 testPosition1
     |h s ch externalReadStream|
-
+	
     externalReadStream := (Smalltalk at:#ExternalReadStream).
     self skipIf:true "externalReadStream isBehavior not" description:'skipped until new stream package is used'.