anchor.diff:      for j:=Low(blockAccount.accounts) to High(blockAccount.accounts) do begin
         If blockAccount.accounts[j].updated_block>maxUB then maxUB := blockAccount.accounts[j].updated_block;
       end;
  -    Result := maxUB <= FPreviousSafeboxOriginBlock;
  +    Result := (maxUB <= FPreviousSafeboxOriginBlock);
     end;
   var i,j : Integer;
     Pss : PSafeboxSnapshot;
  
positive.code:       if Not Check_Safebox_Names_Consistency(Self,'CHAIN',errors) then begin
          if errors='' then Raise Exception.Create('Check_Safebox_Names_Consistency '+errors);
        end;
        {$ENDIF}
        TLog.NewLog(ltdebug,ClassName,Format('Check process end',[]));
      finally
  
negative.code:   end;
  end;
  
  function TPCSafeBox.AddNew(const blockChain: TOperationBlock): TBlockAccount;
  
  var i, base_addr : Integer;
    Pblock : PBlockAccount;
    accs : Array of cardinal;
  