@@ -141,10 +141,14 @@ } # load config settings file if present namespace eval ::vfs { variable tclkit_version 1 } catch { uplevel #0 [list source [file join $mountpoint config.tcl]] } + + # Set-up starkit::topdir correctly + namespace eval ::starkit { variable topdir } + set ::starkit::topdir $mountpoint # Perform expected initialization uplevel #0 [list source [file join $tcl_library init.tcl]] # reset auto_path, so that init.tcl's search outside of tclkit is cancelled