Diff

Differences From Artifact [1c8e83d483]:

To Artifact [63e41b84b9]:


140
141
142
143
144
145
146
147
148
149



150
151
152
153
154
155
156
140
141
142
143
144
145
146



147
148
149
150
151
152
153
154
155
156







-
-
-
+
+
+







		catch { clock scan }
	}
  
	# 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
	# Set-up starkit::tclkitroot
	namespace eval ::starkit { variable tclkitroot }
	set ::starkit::tclkitroot $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
	set auto_path $tcl_libPath