Index: generic/tclPathObj.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclPathObj.c,v
retrieving revision 1.66.2.9
diff -u -r1.66.2.9 tclPathObj.c
--- generic/tclPathObj.c	20 Aug 2009 14:59:53 -0000	1.66.2.9
+++ generic/tclPathObj.c	27 Oct 2009 20:22:53 -0000
@@ -2005,6 +2005,7 @@
 	    TclFSNormalizeToUniquePath(interp, copy, cwdLen-1,
 		    (fsPathPtr->nativePathPtr == NULL ? &clientData : NULL));
 	    fsPathPtr->normPathPtr = copy;
+	    Tcl_IncrRefCount(fsPathPtr->normPathPtr);
 	    if (clientData != NULL) {
 		fsPathPtr->nativePathPtr = clientData;
 	    }
