Index: generic/tclFileName.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclFileName.c,v
retrieving revision 1.55
diff -u -r1.55 tclFileName.c
--- generic/tclFileName.c	8 May 2004 15:51:41 -0000	1.55
+++ generic/tclFileName.c	4 Jul 2004 18:21:30 -0000
@@ -754,10 +754,8 @@
 		    while (p[1] == '/') {
 			p++;
 		    }
-		    if (p[1] != '\0') {
-			if (needsSep) {
-			    *dest++ = '/';
-			}
+		    if (needsSep) {
+			*dest++ = '/';
 		    }
 		} else {
 		    *dest++ = *p;
@@ -792,7 +790,7 @@
 		    while ((p[1] == '/') || (p[1] == '\\')) {
 			p++;
 		    }
-		    if ((p[1] != '\0') && needsSep) {
+		    if (needsSep) {
 			*dest++ = '/';
 		    }
 		} else {
