Diff

Differences From Artifact [46ce76b41e]:

To Artifact [4058010f56]:


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