%
% check for link to xml file
%
sel@
"Linked" \_ any?
"haslink " log()
{
%
% has linked files
%
 execstr
%
% flag to trim the children of the current node
%
 true !making
 countup
 {
  pop
  _making
  {
%
% only clear the children of this node with the first xml file
%
   _\ Tree./Below
   false !making
  } if
%
% read the file
%
  dup extension ".xml" eq$
  {
%
% this is an xml file, attach it to this node
%
   read
   ^"<Runner>" &"</Runner>"
"linkxml " log()
   "XmlDance" dance
   sel@
%
% there will be no result if improperly formed xml
%
   any?
   {
%
% properly formed xml, process the xml stream representation
%
    dup execstr
   } if
  }
  {
%
% not an xml file
%
   pop
  } ifelse
 } for
 @@
%
% form the xml filename of this tree
%
 root\
 *runroots "_Fname" \!
%
% insure root node properly named
%
 _@ "#" Str.RevRight !\\
 *expander
 nod@
} if