anchor.diff:        Client.SendJSONRPCMethod(CT_PoolMining_Method_MINER_NOTIFY,params,Null);
       end;
   
  -    TLog.NewLog(ltInfo,ClassName,
  +    TLog.NewLog(ltdebug,ClassName,
         Format('Sending job %d to miner - Block:%d Ops:%d Target:%s PayloadStart:%s',
         [nJobs,Operations.OperationBlock.block,Operations.Count,IntToHex(Operations.OperationBlock.compact_target,8),Operations.OperationBlock.block_payload.ToPrintable]));
     Finally
  
positive.code:       P^.method:=method;
        FPendingResponseMessages.Add(P);
      end;
      TLog.NewLog(ltInfo,Classname,'Sending JSON: '+json.ToJSON(false));
      stream := TMemoryStream.Create;
      try
        json.SaveToStream(stream);
  
negative.code:     Try
        if l.count>0 then P := l[l.Count-1] // The last
        else begin
          //TLog.NewLog(ltInfo,ClassName,'Creating new job for miner');
          New(P);
          P^.SentDateTime := now;
          P^.SentMinTimestamp := TNetData.NetData.NetworkAdjustedTime.GetAdjustedTime;
  