Index: generic/tclPathObj.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclPathObj.c,v
retrieving revision 1.67
diff -u -r1.67 tclPathObj.c
--- generic/tclPathObj.c	27 Apr 2008 22:21:31 -0000	1.67
+++ generic/tclPathObj.c	23 Jun 2008 04:05:51 -0000
@@ -1596,7 +1596,14 @@
     srcFsPathPtr = PATHOBJ(pathPtr);
     if (srcFsPathPtr->translatedPathPtr == NULL) {
 	if (PATHFLAGS(pathPtr) != 0) {
-	    retObj = Tcl_FSGetNormalizedPath(interp, pathPtr);
+	    int numBytes;
+	    const char *bytes = Tcl_GetStringFromObj(pathPtr, &numBytes);
+	    Tcl_Obj *copy = Tcl_NewStringObj(bytes, numBytes);
+	    Tcl_IncrRefCount(copy);
+	    retObj = Tcl_FSGetTranslatedPath(interp, copy);
+	    srcFsPathPtr->translatedPathPtr = retObj;
+	    Tcl_IncrRefCount(retObj);
+	    Tcl_DecrRefCount(copy);
 	} else {
 	    /*
 	     * It is a pure absolute, normalized path object. This is
