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