From f21910ec560f0de7331e5dcc14f751228bbbb597 Mon Sep 17 00:00:00 2001
From: Vince Darley <vincentdarley@sourceforge.net>
Date: Wed, 14 May 2003 21:00:31 +0000
Subject: [PATCH] mk4vfs file attributes fix

---
 ChangeLog          | 1 +
 library/mk4vfs.tcl | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 0d21a78..9ce4b45 100644
--- 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 e069f89..04473a1 100644
--- 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]
-- 
2.23.0