fix to typo

diff --git a/library/tclprocvfs.tcl b/library/tclprocvfs.tcl
index abc8a7066909e4a20da17ff82412a3018c551a9c..54455a6cd8314dd008b75791dd671e7d8e47d1fc 100644 (file)
--- a/library/tclprocvfs.tcl
+++ b/library/tclprocvfs.tcl
@@ -15,7 +15,7 @@ proc vfs::tclproc::Mount {ns local} {
     }
     puts "tclproc $ns mounted at $local"
     vfs::filesystem mount $local [list vfs::tclproc::handler $ns]
-    vfs::RegisterMount $local [list vfs::tclproc::handler]
+    vfs::RegisterMount $local [list vfs::tclproc::Unmount]
 }
 
 proc vfs::tclproc::Unmount {local} {

diff --git a/library/zipvfs.tcl b/library/zipvfs.tcl
index bc7a1d0417fbe62b34479f1848d1014f1a55a82e..1ded361accbfc78213a84c733f0840712c0e009f 100644 (file)
--- a/library/zipvfs.tcl
+++ b/library/zipvfs.tcl
@@ -22,7 +22,7 @@ proc vfs::zip::Mount {zipfile local} {
     return $fd
 }
 
-proc vfs::zip::Unmount {fd} {
+proc vfs::zip::Unmount {fd local} {
     vfs::filesystem unmount $local
     ::zip::_close $fd
 }