Index: generic/tclPathObj.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclPathObj.c,v
retrieving revision 1.27
diff -u -r1.27 tclPathObj.c
--- generic/tclPathObj.c	26 Mar 2004 19:04:49 -0000	1.27
+++ generic/tclPathObj.c	29 Mar 2004 18:00:01 -0000
@@ -841,6 +841,8 @@
 		    }
 		    ptr++;
 		}
+	    }
+	    if (equal) {
 		if (res != NULL) Tcl_DecrRefCount(res);
 		/* 
 		 * This element is just what we want to return already -
