Index: tclFileName.c
===================================================================
--- tclFileName.c
+++ tclFileName.c
@@ -799,6 +799,11 @@
      */
 
     Tcl_IncrRefCount(ret);
+    // [SB] if will be deleted - prevent leaks on pathPtr (refCount) by ObjDeletePending (delayed free) :
+    if (!Tcl_IsShared(lobj)) {
+	// free list now :
+	TclFreeIntRep(lobj);
+    };
     Tcl_DecrRefCount(lobj);
     ret->refCount--;
     return ret;
