From b50aee633f4abf40c9a447a83091f1d68d05e1b1 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Mon, 16 Nov 2009 00:09:09 +0000
Subject: [PATCH] fix file-or-directory-identity for dirs on Windows

svn: r16791
---
 src/mzscheme/src/file.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/mzscheme/src/file.c b/src/mzscheme/src/file.c
index 0686849c2c..ef2652bfc0 100644
--- a/src/mzscheme/src/file.c
+++ b/src/mzscheme/src/file.c
@@ -2358,7 +2358,7 @@ Scheme_Object *scheme_get_fd_identity(Scheme_Object *port, long fd, char *path)
                      FILE_SHARE_READ | FILE_SHARE_WRITE,
                      NULL,
                      OPEN_EXISTING,
-                     0,
+                     FILE_FLAG_BACKUP_SEMANTICS,
                      NULL);
     if (fd == INVALID_HANDLE_VALUE) {
       errid = GetLastError();