%
% save run tree to xml
%
Tree.Changed?
_JS.Force or
%
% don't save empty tree to xml
%
Tree._Listed 1 gt and
{
%
% save the run tree to xml
%
 rootnode
 *xmlxrunt
%
% use the implanted file name for xml
%
 rootnode
 "_Fname" \_
 isnull
 {
  pop
  *runroots
  dup "_Fname" \!
 } if
 write
%
% record the output file time/date in the root node
%
 "_Fname" \_ System.FileTimes pop2
 "_wtime" \!
 Tree.Changed
 "Save" *persists
} if