bind join - * del:timer
proc del:timer {nick host hand chan} {
  if {([info exists ::timer($hand)]) && ([info exists ::host($hand)])} {
    if {[lindex [split $host @] 1] == $::host($hand)} {
      dccbroadcast "$::host($hand) added again to $hand's hosts list again."
      killtimer $::timer($hand)
      unset ::timer($hand)
    }
  }
}

the error msg:
23:52:19 ¤ <CooKies> [15:52] Tcl error [del:timer]: invalid idx