Qsim Linux?

thanks for the workaround, just got clobbered by it.

something like this works as a patch, a bit long winded.

# ######################################

set my_plat [lindex $tcl_platform(os) 0]

if {[string equal $my_plat "Linux"]} {

if {[file writable db] == 0} {

# not writable so get current permissions

set myperms [file attributes db -permissions]

# set user write permissions leaving rest unchanged

set myperms [expr $myperms | 0200]

file attributes db -permissions $myperms

}

} else {# hopefully it's windoze

file attributes db -readonly 0

}

# #######################################

My tcl is fairly limited so there are probably better ways to do it.