Index: kitsh/buildsrc/kitsh-0.0/kitInit.c ================================================================== --- kitsh/buildsrc/kitsh-0.0/kitInit.c +++ kitsh/buildsrc/kitsh-0.0/kitInit.c @@ -108,14 +108,18 @@ #endif /* KIT_STORAGE_MK4 */ #ifdef KIT_STORAGE_ZIP "set ::tclKitStorage \"zip\"\n" "catch { load {} vfs }\n" # include "zipvfs.tcl.h" - "set ::tclKitStorage_fd [zip::open [info nameofexecutable]]\n" + "catch {\n" + "set ::tclKitStorage_fd [zip::open [info nameofexecutable]]\n" + "}\n" "if {![catch { ::zip::stat $::tclKitStorage_fd boot.tcl sb }]} {\n" - "seek $::tclKitStorage_fd $sb(ino)\n" - "zip::Data $::tclKitStorage_fd sb s\n" + "catch {\n" + "seek $::tclKitStorage_fd $sb(ino)\n" + "zip::Data $::tclKitStorage_fd sb s\n" + "}\n" "}\n" #endif /* KIT_STORAGE_ZIP */ "if {![info exists s]} {\n" "set f [open setup.tcl]\n" "set s [read $f]\n"