diff -ruN tcl8.4.13-orig/win/tclWinFile.c tcl8.4.13/win/tclWinFile.c
--- tcl8.4.13-orig/win/tclWinFile.c	Mon Mar 20 01:47:30 2006
+++ tcl8.4.13/win/tclWinFile.c	Thu Jul 20 23:28:27 2006
@@ -2648,7 +2648,7 @@
     fileHandle = (tclWinProcs->createFileProc) (
 	    (CONST TCHAR *) Tcl_FSGetNativePath(pathPtr),
 	    FILE_WRITE_ATTRIBUTES, 0, NULL, OPEN_EXISTING,
-	    FILE_ATTRIBUTE_NORMAL, NULL);
+	    FILE_FLAG_BACKUP_SEMANTICS, NULL);
 
     if (fileHandle == INVALID_HANDLE_VALUE ||
 	    !SetFileTime(fileHandle, NULL, &lastAccessTime, &lastModTime)) {