anchor.diff:        exit;
       end;
   
  -    if (soob in [2,3,4,5]) then begin
  -      Stream.Read(FOperationBlock.protocol_version, Sizeof(FOperationBlock.protocol_version));
  -      Stream.Read(FOperationBlock.protocol_available, Sizeof(FOperationBlock.protocol_available));
  -    end else begin
  -      // We assume that protocol_version is 1 and protocol_available is 0
  -      FOperationBlock.protocol_version := 1;
  -      FOperationBlock.protocol_available := 0;
  -    end;
  -
  -    if Stream.Read(FOperationBlock.block, Sizeof(FOperationBlock.block))<0 then exit;
  -
  -    if TStreamOp.ReadAnsiString(Stream, raw) < 0 then exit;
  -    FOperationBlock.account_key := TAccountComp.RawString2Accountkey(raw);
  -    if Stream.Read(FOperationBlock.reward, Sizeof(FOperationBlock.reward)) < 0 then exit;
  -    if Stream.Read(FOperationBlock.fee, Sizeof(FOperationBlock.fee)) < 0 then exit;
  -    if Stream.Read(FOperationBlock.timestamp, Sizeof(FOperationBlock.timestamp)) < 0 then exit;
  -    if Stream.Read(FOperationBlock.compact_target, Sizeof(FOperationBlock.compact_target)) < 0 then exit;
  -    if Stream.Read(FOperationBlock.nonce, Sizeof(FOperationBlock.nonce)) < 0 then exit;
  -    if TStreamOp.ReadAnsiString(Stream, FOperationBlock.block_payload) < 0 then exit;
  -    if TStreamOp.ReadAnsiString(Stream, FOperationBlock.initial_safe_box_hash) < 0 then exit;
  -    if TStreamOp.ReadAnsiString(Stream, FOperationBlock.operations_hash) < 0 then exit;
  -    if TStreamOp.ReadAnsiString(Stream, FOperationBlock.proof_of_work) < 0 then exit;
       if FOperationBlock.protocol_version>=CT_PROTOCOL_5 then begin
  -      if TStreamOp.ReadAnsiString(Stream, FOperationBlock.previous_proof_of_work) < 0 then exit;
         load_protocol_version := FOperationBlock.protocol_version;
       end;
  +
       If FIsOnlyOperationBlock then begin
         Result := true;
         exit;
  
positive.code:   finally
      Unlock;
    end;
  end;
  
  class function TPCOperationsComp.OperationBlockToText(const OperationBlock: TOperationBlock): String;
  
negative.code:       errors := 'Invalid protocol structure. Check application version!';
        exit;
      end;
  
      if Not LoadOperationBlockFromStream(Stream,soob,FOperationBlock) then begin
        errors := 'Cannot load operationBlock';
        Exit;
      end;
  
      // About soob var:
      // In build prior to 1.0.4 soob only can have 2 values: 0 or 1
      // In build 1.0.4 soob can has 2 more values: 2 or 3
  