%
% exchange left and right trees
%
  _Hier.Left @
  "Default\Right.tlt" oflist Tree.Save pop

  _Hier.Right @
  "Default\Left.tlt" oflist Tree.Save pop
  _Hier.Lname
  _Hier.Rname
  !Hier.Lname
  !Hier.Rname

  _Hier.Left @
  "Load" *persists
  _Hier.Right @
  "Load" *persists

%
% re-identify the left and right tree captions
%
   "Tabber(0);" 
   *hiernams