ad linked.tcl before merge with tcloo.tcl