anchor.diff:    Finally
       UnlockBlockChainStream;
     End;
  -  if Assigned(Bank) then SaveBank;
  +  if Assigned(Bank) then SaveBank(False);
   end;
   
   Const CT_SafeboxsToStore = 10;
  
positive.code:         if (sr.Attr and FileAttrs) = FileAttrs then begin
            auxfn := folder+PathDelim+sr.Name;
            If LoadBankFileInfo(auxfn,sbHeader) then begin
              if (((max_block<0) Or (sbHeader.blocksCount<=max_block)) AND (sbHeader.blocksCount>blockscount)) And
                (sbHeader.startBlock=0) And (sbHeader.endBlock=sbHeader.startBlock+sbHeader.blocksCount-1) then begin
                filename := auxfn;
                blockscount := sbHeader.blocksCount;
  
negative.code: 
    TFileStorage = Class(TStorage)
    private
      FLowMemoryUsage: Boolean;
      FStorageLock : TPCCriticalSection;
      FBlockChainStream : TFileStream;
      FPendingBufferOperationsStream : TFileStream;
  