Index: generic/tclFileName.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclFileName.c,v
retrieving revision 1.40.2.13
diff -u -r1.40.2.13 tclFileName.c
--- generic/tclFileName.c	30 Aug 2006 17:35:24 -0000	1.40.2.13
+++ generic/tclFileName.c	2 Oct 2006 18:23:47 -0000
@@ -2130,6 +2130,10 @@
 	     */
 	    if (globFlags & TCL_GLOBMODE_DIR) {
 		Tcl_DStringAppend(&buffer,separators,1);
+		/* Try to borrow that separator from the tail */
+		if (*tail == *separators) {
+		    tail++;
+		}
 	    }
 	    prefixLen++;
 	}
