Evaluated proc on name {aa triggers $name [lreplace [first [aa triggers $name]] 2 2 1]; aa triggers $name}