%
% reload the right tree, ignoring any changes
%
  _Hier.Rname true exch *treeacts
  "Default\Right.tlt" oflist Tree.Save pop
  _Hier.Right @
  "Load" *persists