Index: generic/tclIOUtil.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclIOUtil.c,v
retrieving revision 1.112
diff -u -r1.112 tclIOUtil.c
--- generic/tclIOUtil.c	15 Oct 2004 04:01:31 -0000	1.112
+++ generic/tclIOUtil.c	17 Nov 2004 00:12:31 -0000
@@ -642,13 +642,7 @@
     int filesystemEpoch; 
 {
     ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&tclFsDataKey);
-#ifndef TCL_THREADS
-    tsdPtr->filesystemEpoch = theFilesystemEpoch;
-#else
-    Tcl_MutexLock(&filesystemMutex);
-    tsdPtr->filesystemEpoch = theFilesystemEpoch;
-    Tcl_MutexUnlock(&filesystemMutex);
-#endif
+    (void) FsGetFirstFilesystem();
     return (filesystemEpoch == tsdPtr->filesystemEpoch);
 }
 
