[ RunLife a j;
    #Ifdef DEBUG;
    if (debug_flag & 2 ~= 0) TraceAction(2, j);
    #Endif; ! DEBUG
    reason_code = j; return RunRoutines(a,life);
];