* Trash the filesystems cache.
     */

    fsRecPtr = tsdPtr->filesystemList;
    while (fsRecPtr != NULL) {
	tmpFsRecPtr = fsRecPtr->nextPtr;
	if (--fsRecPtr->fileRefCount <= 0) {
	    fsRecPtr->fsPtr = NULL;
	    ckfree((char *)fsRecPtr);
	}
	fsRecPtr = tmpFsRecPtr;
    }
    tsdPtr->initialized = 0;
}


    }
}

static void
FsRecacheFilesystemList(void)
{
    ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&tclFsDataKey);
    FilesystemRecord *fsRecPtr, *tmpFsRecPtr = NULL, *toFree = NULL, *chain = NULL;

    /*
     * Trash the current cache.
     */

    fsRecPtr = tsdPtr->filesystemList;
    if (tsdPtr->claims <= 0) {
	while (fsRecPtr != NULL) {
	    tmpFsRecPtr = fsRecPtr->nextPtr;
	    if (--fsRecPtr->fileRefCount <= 0) {
		fsRecPtr->fsPtr = NULL;
		fsRecPtr->nextPtr = toFree;
		toFree = fsRecPtr;
	    }
	    fsRecPtr = tmpFsRecPtr;
	}
    } else {
	chain = fsRecPtr;
	while (fsRecPtr->nextPtr != NULL) {
	    fsRecPtr->prevPtr = fsRecPtr->nextPtr;

	*tmpFsRecPtr = *fsRecPtr;
	tmpFsRecPtr->nextPtr = tsdPtr->filesystemList;
	tmpFsRecPtr->prevPtr = chain;
	chain = NULL;
	tsdPtr->filesystemList = tmpFsRecPtr;
	fsRecPtr = fsRecPtr->prevPtr;
    }

    while (toFree) {
	FilesystemRecord *next = toFree->nextPtr;
	ckfree((char *)toFree);
	toFree = next;
    }
    tsdPtr->filesystemEpoch = theFilesystemEpoch;
    Tcl_MutexUnlock(&filesystemMutex);

    /*
     * Make sure the above gets released on thread exit.
     */