if {[info exists new]} { error "nick collision ?! $ary $n $newnick" }
if {[info exists old]} { set new $old; unset old }
}
- upvar #0 nick_onchans($new)
+ upvar #0 nick_onchans($new) oc
set luser [irctolower $n]
set lusernew [irctolower $newnick]
foreach ch $oc {