%
% unmark if marker for changes exists
%

@^Unmark

/*
"Changed"
Tree.Up
{
 !\
 dup Tree.Marker eq$
 {
%
% this is a changed marker on this node
% revert it to the default mark
%
  "Default" _\ Tree.!Mark
 } if
} for
pop
*/