--- a/Filename.st	Thu Nov 21 16:04:00 2013 +0100
+++ b/Filename.st	Thu Nov 21 16:58:10 2013 +0100
@@ -3353,7 +3353,7 @@
         tempStream := FileStream newTemporaryIn:newName directory nameTemplate:'~%1_%2'.
         [
             "would be nice to keep the access rights of the original test suite"    
-            tempStream accessRights:accessRights.
+            tempStream fileName accessRights:accessRights.
         ] on:OperatingSystem accessDeniedErrorSignal do:[:ex|
             "ignore the error - may occure when copying to a network drive"
         ].            
@@ -6066,11 +6066,11 @@
 !Filename class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.406 2013-11-21 15:04:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.407 2013-11-21 15:58:10 ca Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.406 2013-11-21 15:04:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.407 2013-11-21 15:58:10 ca Exp $'
 ! !