anchor.diff:        end;
         if (FOperationBlock.protocol_version>=CT_PROTOCOL_4) then begin
           FOperationsHashTree.Max0feeOperationsBySigner := 1; // Limit to 1 0-fee operation by signer
  -      end;
  +      end else FOperationsHashTree.Max0feeOperationsBySigner := -1;
         FOperationBlock.block := FBank.BlocksCount;
         FOperationBlock.reward := TPascalCoinProtocol.GetRewardForNewLine(FBank.BlocksCount);
         if (resetNewTarget) then begin
  
positive.code:       FOperationBlock.compact_target := CT_MinCompactTarget_v1;
        FOperationBlock.initial_safe_box_hash := TCrypto.DoSha256(CT_Genesis_Magic_String_For_Old_Block_Hash); // Nothing for first line
        FOperationBlock.protocol_version := CT_PROTOCOL_1;
      end;
      FOperationBlock.operations_hash := FOperationsHashTree.HashTree;
      FOperationBlock.fee := 0;
  
negative.code:     Try
        if (FOperationBlock.protocol_version>=CT_PROTOCOL_4) then begin
          aux.Max0feeOperationsBySigner := 1;
        end else aux.Max0feeOperationsBySigner := -1;
        lastn := FOperationsHashTree.OperationsCount;
        for i:=0 to lastn-1 do begin
          op := FOperationsHashTree.GetOperation(i);
  