readonly support added

diff --git a/library/mk4vfs.tcl b/library/mk4vfs.tcl
index 3a76d4d0e5d613a85264691b4fe12311dc162013..471ce6ba4aae0b4b451d3aa525f1bb75926ab844 100644 (file)
--- a/library/mk4vfs.tcl
+++ b/library/mk4vfs.tcl
@@ -117,7 +117,7 @@ namespace eval vfs::mk4 {
        array get sb
     }
 
-    proc vfs::mk4::access {db name mode} {
+    proc access {db name mode} {
        if {$mode & 2} {
            if {$::mk4vfs::v::mode($db) == "readonly"} {
                return -code error [vfs::filesystem posixerror $::vfs::posix(EROFS)]