ADDED   tclvfs/patches/all/tclvfs-20080503-fixinternalrepuse.diff
Index: tclvfs/patches/all/tclvfs-20080503-fixinternalrepuse.diff
==================================================================
--- tclvfs/patches/all/tclvfs-20080503-fixinternalrepuse.diff
+++ tclvfs/patches/all/tclvfs-20080503-fixinternalrepuse.diff
@@ -0,0 +1,24 @@
+--- tclvfs-20080503.orig/generic/vfs.c	2006-08-30 19:38:03.000000000 +0000
++++ tclvfs-20080503-fixinternalrepuse/generic/vfs.c	2014-11-17 18:34:43.317025829 +0000
+@@ -1986,16 +1986,17 @@
+         return NULL;
+     }
+     
+-    splitPosition = nativeRep->splitPosition;
+-    normed = Tcl_FSGetNormalizedPath(NULL, pathPtr);
+-    normedString = Tcl_GetStringFromObj(normed, &len);
+-    
+     mountCmd = Tcl_DuplicateObj(nativeRep->fsCmd->mountCmd);
+     Tcl_IncrRefCount(mountCmd);
+     if (Tcl_ListObjLength(NULL, mountCmd, &dummyLen) == TCL_ERROR) {
+ 	Tcl_DecrRefCount(mountCmd);
+ 	return NULL;
+     }
++
++    splitPosition = nativeRep->splitPosition;
++    normed = Tcl_FSGetNormalizedPath(NULL, pathPtr);
++    normedString = Tcl_GetStringFromObj(normed, &len);
++    
+     Tcl_ListObjAppendElement(NULL, mountCmd, Tcl_NewStringObj(cmd,-1));
+     if (splitPosition == len) {
+ 	Tcl_ListObjAppendElement(NULL, mountCmd, normed);