anchor.diff:      jsonarr : TPCJSONArray;
       i : Integer;
     begin
  +    FNode.OperationSequenceLock.Acquire; // Added to prevent high concurrent API calls
  +    try
       Result := False;
       oprl := TOperationsResumeList.Create;
       try
  
positive.code:       else ErrorDesc := 'Block not found: '+IntToStr(c);
        ErrorNum := CT_RPC_ErrNum_InvalidBlock;
      end;
    end else if (method='getblockoperations') then begin
      // Param "block" contains block
      // Returns a JSON array with items as "Operation resume format"
      c := params.GetAsVariant('block').AsCardinal(CT_MaxBlock);
      if (c>=0) And (c<FNode.Bank.BlocksCount) then begin
        pcops := TPCOperationsComp.Create(Nil);
  
negative.code: 
    Function GetBlock(nBlock : Cardinal; jsonObject : TPCJSONObject) : Boolean;
    begin
      FNode.OperationSequenceLock.Acquire; // Added to prevent high concurrent API calls
      try
      If FNode.Bank.BlocksCount<=nBlock then begin
        ErrorNum := CT_RPC_ErrNum_InvalidBlock;
        ErrorDesc := 'Cannot load Block: '+IntToStr(nBlock);
  