method vstmt stm =
    if stm.sid = sid
    then (fsr := stm; SkipChildren)
    else DoChildren