Index: generic/tclPathObj.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclPathObj.c,v
retrieving revision 1.29
diff -u -r1.29 tclPathObj.c
--- generic/tclPathObj.c	6 Apr 2004 22:25:54 -0000	1.29
+++ generic/tclPathObj.c	22 Apr 2004 20:11:29 -0000
@@ -918,6 +918,9 @@
 	    Tcl_SetObjLength(res, length);
 	}
     }
+    if (NULL == res) {
+	res = Tcl_NewObj();
+    }
     return res;
 }
 
