Index: unix/tclUnixFCmd.c
===================================================================
RCS file: /cvsroot/tcl/tcl/unix/tclUnixFCmd.c,v
retrieving revision 1.36
diff -u -r1.36 tclUnixFCmd.c
--- unix/tclUnixFCmd.c	6 Apr 2004 22:25:56 -0000	1.36
+++ unix/tclUnixFCmd.c	24 Apr 2004 02:57:54 -0000
@@ -1810,8 +1810,8 @@
 		&& (strcmp(normPath, nativePath) == 0)) {
 	    /* String is unchanged */
 	    Tcl_DStringFree(&ds);
-	    if (path[nextCheckpoint] != '\0') {
-		nextCheckpoint++;
+	    if (0 == access(normPath, F_OK)) {
+		return pathLen;
 	    }
 	    return nextCheckpoint;
 	}
