%
% stack: hier-global
%
"\" Str.Left
%
% stack: tree-pep
%
% focus on the named pep
%
true exch *treeacts
"Load" *persists
"_temp.tlt" ofbin dup Tree.Save pop
@@
Tree.Load