Index: build/test/tests/17-zipseek.tcl
==================================================================
--- build/test/tests/17-zipseek.tcl
+++ build/test/tests/17-zipseek.tcl
@@ -1,9 +1,12 @@
 #!/usr/bin/env tclsh
+
+package require starkit
+starkit::startup
 
 # Open some file inside the tclkit that will be stored in compressed form
-set fd [open [file join [info nameofexecutable] boot.tcl]]
+set fd [open [file join $::starkit::topdir boot.tcl]]
 
 gets $fd line1
 
 if {[catch {seek $fd 0} result]} {
     puts "Got:      $result"

Index: kitsh/buildsrc/kitsh-0.0/boot.tcl
==================================================================
--- kitsh/buildsrc/kitsh-0.0/boot.tcl
+++ kitsh/buildsrc/kitsh-0.0/boot.tcl
@@ -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