tweak

diff --git a/ChangeLog b/ChangeLog
index 01ef117b62c3f8d7ac291f5356613a00cbb1f8db..c98d65d95bb648be26165e4a5b5cdc4defaa06ed 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2003-02-01  Jean-Claude Wippler  <jcw@equi4.com>
+
+       * library/mk4vfs.tcl:  fixed bad mk4vfs::_umount change
+
 2003-02-01  Jean-Claude Wippler  <jcw@equi4.com>
 
        * library/pkgIndex.tcl.in: mk4vfs 1.8, starkit 1.1, vfslib 1.3.1

diff --git a/library/mk4vfs.tcl b/library/mk4vfs.tcl
index 99e26b0e855578b87bd4cc559b70721011c0e544..202b297a1f35ea307323ced4b8f5a1fb51860c39 100644 (file)
--- a/library/mk4vfs.tcl
+++ b/library/mk4vfs.tcl
@@ -310,7 +310,7 @@ namespace eval mk4vfs {
        tclLog "umount $local? [mk::file open]"
     }
 
-    proc _umount {db} {
+    proc _umount {db args} {
        after cancel [list mk4vfs::periodicCommit $db]
        array unset v::mode $db
        array unset v::timer $db