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]