From 9e4ed28a238efd124e6fa9dd85cb91ed4916473b Mon Sep 17 00:00:00 2001
From: dkf <donal.k.fellows@manchester.ac.uk>
Date: Mon, 10 Jun 2013 10:04:21 +0000
Subject: unwrapping some of the complexity

---
 win/tclWinFile.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/win/tclWinFile.c b/win/tclWinFile.c
index f64d583..027c290 100644
--- a/win/tclWinFile.c
+++ b/win/tclWinFile.c
@@ -3217,10 +3217,15 @@ TclpFileOwnedByCurrentUser(
     Tcl_Interp *interp,
     Tcl_Obj *pathObj)
 {
+    const Tcl_Filesystem *fsPtr;
+
     if (Tcl_FSConvertToPathType(NULL, pathObj) != TCL_OK) {
 	return 0;
     }
-    return (Tcl_FSAccess(pathObj, F_OK) == 0);
+    if (Tcl_FSGetFileSystemForPath(pathPtr) != &tclNativeFilesystem) {
+	return 0;
+    }
+    return (NativeAccess(Tcl_FSGetNativePath(pathObj), F_OK) == 0);
 }
 
 /*
-- 
cgit v0.12