From 70c5312f8edafc65b2836cc096cf888a0e7387fb Mon Sep 17 00:00:00 2001
From: Vince Darley <vincentdarley@sourceforge.net>
Date: Tue, 14 Aug 2001 14:56:42 +0000
Subject: [PATCH] fix to typo

---
 library/tclprocvfs.tcl | 2 +-
 library/zipvfs.tcl     | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/library/tclprocvfs.tcl b/library/tclprocvfs.tcl
index abc8a70..54455a6 100644
--- 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 bc7a1d0..1ded361 100644
--- 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
 }
-- 
2.23.0