_Targeted
{
 Ent._E4 unescape *persnorm
 dup _Hier.Rname eq$
 {
  pop
 }
 {
  _Hier.Right @
  nod@?
  {
   *hierrsav
  } if
  dup !Hier.Rname
  true exch *treeacts
  "Load" *persists
  "Default\Right.tlt" oflist Tree.Save pop
  _Hier.Right @
  "Load" *persists
%
% re-identify the left and right tree captions
%
  "Tabber(0);" 
  *hiernams

 } ifelse
}
{
} ifelse