package ifneeded Tk 8.5.1 \
  [string map [list @@ [file join $dir .. libtk8.5[info sharedlibext]]] {
    if {[lsearch -exact [info loaded] {{} Tk}] >= 0} {
      load "" Tk
    } else {
      load @@ Tk
    }
  }]
