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