minor revision of contact.tcl