Evaluated proc addcat {url} {upvar #0 cats cats; lappend cats $url ; return "Cat added."}