mk4vfs file attributes fix

diff --git a/ChangeLog b/ChangeLog
index 0d21a78643c558d7a5534a67b10d8387f08faba3..9ce4b451d26f789c2af34f30410422944ba0768e 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
 2003-05-14  Vince Darley <vincentdarley@sourceforge.net>
 
        * library/vfsUtils.tcl: fix to package names
+       * library/mk4vfs.tcl: fix to 'file attributes' implementation
        
 2003-04-29  Vince Darley <vincentdarley@sourceforge.net>
 

diff --git a/library/mk4vfs.tcl b/library/mk4vfs.tcl
index e069f891c54ee916a15a15486ea8147594f11dc8..04473a1f3486aeef79fc229984f68b12c19a9bf4 100644 (file)
--- a/library/mk4vfs.tcl
+++ b/library/mk4vfs.tcl
@@ -288,7 +288,7 @@ namespace eval vfs::mk4 {
            }
            2 {
                # set value
-               if {$::mk4vfs::mode($db) == "readonly"} {
+               if {$::mk4vfs::v::mode($db) == "readonly"} {
                    vfs::filesystem posixerror $::vfs::posix(EROFS)
                }
                set index [lindex $args 0]