%
% move back all levels
%
@@
_@ "Xhelp" eq$
"xhelped" log)(
{
%
% at top level, bring back controls
%
 @@
}
{
 root\
 *allarchs
 _@ "Xhelp#Work" eq$
 {
%
% this is the working external xhelp page
% return the contents back to the original page
%
  root\
  "_backto" \_
"backto" log)(
  -1 "CopyItem" do
  !@
  Tree.Clear
  -1 "LoadItem" do
  nod@
  @@
 }
 {
 } ifelse 
} ifelse
%
% perform move back in task chain
%
"Back" vector()