Index: generic/tclPathObj.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclPathObj.c,v
retrieving revision 1.30
diff -u -r1.30 tclPathObj.c
--- generic/tclPathObj.c	23 Apr 2004 12:09:37 -0000	1.30
+++ generic/tclPathObj.c	18 May 2004 21:54:26 -0000
@@ -763,8 +763,9 @@
 		 * and this would therefore contradict our 'file join'
 		 * documentation).
 		 */
-		if (str[0] != '.' && ((tclPlatform != TCL_PLATFORM_WINDOWS) 
-				      || (strchr(str, '\\') == NULL))) {
+		if (str[0] != '.' && (NULL == strchr(str, '/'))
+			&& ((tclPlatform != TCL_PLATFORM_WINDOWS) 
+			|| (strchr(str, '\\') == NULL))) {
 		    if (res != NULL) Tcl_DecrRefCount(res);
 		    return TclNewFSPathObj(elt, str, len);
 		}
