--- tclUnixFCmd.c.orig	Tue Jun 11 09:49:55 2002
+++ tclUnixFCmd.c	Tue Jun 11 09:58:24 2002
@@ -1691,6 +1691,8 @@
 	    /* Update the acceptable point */
 	    nextCheckpoint = currentPathEndPosition - path;
 	} else if (cur == 0) {
+	    /* Update the acceptable point */
+	    nextCheckpoint = pathLen;
 	    break;
 	}
 	currentPathEndPosition++;
