%
% lock or unlock a xact for snap chain operation
%
% stack: ider locking
%
{
 Claimer.!?
}
{
 Claimer./
} ifelse
%
% stack: [ locked ]   if locking true
%