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