anchor.diff:      end;
       // Send client version
       TStreamOp.WriteAnsiString(data,TEncoding.ASCII.GetBytes(TNode.NodeVersion));
  -    // Build 1.5 send accumulated work
  -    data.Write(TNode.Node.Bank.SafeBox.WorkSum,SizeOf(TNode.Node.Bank.SafeBox.WorkSum));
  -    //
  +    // Send Aggregated Hashsrate based on network protocol available version
  +    if FNetProtocolVersion.protocol_available>=CT_MIN_NetProtocol_Use_Aggregated_Hashrate then begin
  +      LUInt64:=0;
  +      data.Write(LUInt64,SizeOf(LUInt64));
  +      LRawAggregatedHashrate := TNode.Node.Bank.SafeBox.AggregatedHashrate.RawValue;
  +      TStreamOp.WriteAnsiString(data,LRawAggregatedHashrate);
  +    end else begin
  +      // If version older than 5.2 then send previous WorkSum value instead of AggregatedHashate
  +      data.Write(TNode.Node.Bank.SafeBox.WorkSum,SizeOf(TNode.Node.Bank.SafeBox.WorkSum));
  +    end;
  +
       Send(NetTranferType,CT_NetOp_Hello,0,request_id,data);
       Result := Client.Connected;
       FLastHelloTS := TPlatform.GetTickCount;
  
positive.code:     FTcpIpClient : TNetTcpIpClient;
      FRemoteOperationBlock : TOperationBlock;
      FRemoteAccumulatedWork : UInt64;
      FLastHelloTS : TTickCount;
      FLastDataReceivedTS : TTickCount;
      FLastDataSendedTS : TTickCount;
  
negative.code:       // Will send a FAST PROPAGATION BLOCK as described at PIP-0015
        netOp := CT_NetOp_NewBlock_Fast_Propagation;
        NewBlock.SaveBlockToStream(netOp = CT_NetOp_NewBlock_Fast_Propagation,data); // Will save all only if not FAST PROPAGATION
        // Send Aggregated Hashsrate based on network protocol available version
        if FNetProtocolVersion.protocol_available>=CT_MIN_NetProtocol_Use_Aggregated_Hashrate then begin
          LRawAggregatedHashrate := TNode.Node.Bank.SafeBox.AggregatedHashrate.RawValue;
          TStreamOp.WriteAnsiString(data,LRawAggregatedHashrate);
        end else begin
          // If version older than 5.2 then send previous WorkSum value instead of AggregatedHashate
          data.Write(TNode.Node.Bank.SafeBox.WorkSum,SizeOf(TNode.Node.Bank.SafeBox.WorkSum));
        end;
        if (netOp = CT_NetOp_NewBlock_Fast_Propagation) then begin
          // Fill with OpReference data:
          c := NewBlock.OperationsHashTree.OperationsCount;
  