can't read "dir": no such variable
    while executing
"file join $dir dns.tcl"
    (in namespace eval "::request" script line 4)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)

OUTPUT BUFFER:

# pkgIndex.tcl - if {![package vsatisfies [package provide Tcl] 8.2]} {return} package ifneeded dns 1.5.0 [list source [file join $dir dns.tcl]] package ifneeded resolv 1.0.3 [list source [file join $dir resolv.tcl]] package ifneeded ip 1.4 [list source [file join $dir ip.tcl]] package ifneeded spf 1.1.1 [list source [file join $dir spf.tcl]]