anchor.diff:        end;
         block := Bank.SafeBox.Account(account).updated_block;
       finally
  -      Operations.Unlock;
  +      UnlockMempoolRead;
       end;
     end;
     // Search in previous blocks
  
positive.code:   TLog.NewLog(ltInfo,ClassName,'TNode.Create '+NodeVersion);
    inherited;
    FDisabledsNewBlocksCount := 0;
    FLockNodeOperations := TPCCriticalSection.Create('TNode_LockNodeOperations');
    FOperationSequenceLock := TPCCriticalSection.Create('TNode_OperationSequenceLock');
    FBank := TPCBank.Create(Self);
    FBCBankNotify := TPCBankNotify.Create(Self);
    FBCBankNotify.Bank := FBank;
    FBCBankNotify.OnNewBlock := OnBankNewBlock;
    FNetServer := TNetServer.Create;
    FOperations := TPCOperationsComp.Create(Nil);
    FOperations.bank := FBank;
    FNotifyList := TList<TNodeNotifyEvents>.Create;
    {$IFDEF BufferOfFutureOperations}
    FBufferAuxWaitingOperations := TOperationsHashTree.Create;
  
negative.code:     end;
      result := true;
    finally
      FLockMempool.Release;
    end;
  end;
  
  