Modified build/test/tests/17-zipseek.tcl from [e7a5fc9a49] to [46ce76b41e].

     1      1   #!/usr/bin/env tclsh
            2  +
            3  +package require starkit
            4  +starkit::startup
     2      5   
     3      6   # Open some file inside the tclkit that will be stored in compressed form
     4         -set fd [open [file join [info nameofexecutable] boot.tcl]]
            7  +set fd [open [file join $::starkit::topdir boot.tcl]]
     5      8   
     6      9   gets $fd line1
     7     10   
     8     11   if {[catch {seek $fd 0} result]} {
     9     12       puts "Got:      $result"
    10     13       puts "Expected: <No Error>"
    11     14       exit 1

Modified kitsh/buildsrc/kitsh-0.0/boot.tcl from [cb5b693f08] to [1c8e83d483].

   139    139   		# loaded before this is run causing the root VFS to break
   140    140   		catch { clock scan }
   141    141   	}
   142    142     
   143    143   	# load config settings file if present
   144    144   	namespace eval ::vfs { variable tclkit_version 1 }
   145    145   	catch { uplevel #0 [list source [file join $mountpoint config.tcl]] }
          146  +
          147  +	# Set-up starkit::topdir correctly
          148  +	namespace eval ::starkit { variable topdir }
          149  +	set ::starkit::topdir $mountpoint
   146    150   
   147    151   	# Perform expected initialization
   148    152   	uplevel #0 [list source [file join $tcl_library init.tcl]]
   149    153     
   150    154   	# reset auto_path, so that init.tcl's search outside of tclkit is cancelled
   151    155   	set auto_path $tcl_libPath
   152    156