@@ -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