--- tclUnixFCmd.c.orig	Tue Jun 11 09:49:55 2002
+++ tclUnixFCmd.c	Thu Jun 13 13:31:04 2002
@@ -1691,6 +1691,10 @@
 	    /* Update the acceptable point */
 	    nextCheckpoint = currentPathEndPosition - path;
 	} else if (cur == 0) {
+	    /* Update the acceptable point */
+	    if (nextCheckpoint == 0) {
+	      nextCheckpoint = pathLen;
+	    }
 	    break;
 	}
 	currentPathEndPosition++;
@@ -1704,6 +1708,7 @@
      */
 #ifndef NO_REALPATH
     nativePath = Tcl_UtfToExternalDString(NULL, path, nextCheckpoint, &ds);
+
     if (Realpath(nativePath, normPath) != NULL) {
 	/* 
 	 * Free up the native path and put in its place the
