can't read "dir": no such variable
    while executing
"file join $dir test.tcl"
    (in namespace eval "::request" script line 2)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:
if {![package vsatisfies [package provide Tcl] 8.2]} return
package ifneeded sak::test         1.0 [list source [file join $dir test.tcl]]
package ifneeded sak::test::run    1.0 [list source [file join $dir run.tcl]]
package ifneeded sak::test::shells 1.0 [list source [file join $dir shells.tcl]]
package ifneeded sak::test::shell  1.0 [list source [file join $dir shell.tcl]]