proc tbcload__load_with_path {dir} {
global env
set save_path $env(PATH)
append env(PATH) ";$dir"
load [file join $dir tbcload.dll]
set env(PATH) $save_path
}
package ifneeded tbcload 1.4 [list tbcload__load_with_path $dir]