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

OUTPUT BUFFER:

source [file join $dir critcl.tcl] critcl::loadlib $dir LRIPhoto 1.1