anchor.diff:    ?IS_HEXADECIMAL(O3) andalso ?IS_HEXADECIMAL(O4) andalso
     ?IS_HEXADECIMAL(O5) andalso ?IS_HEXADECIMAL(O6) andalso
     ?IS_HEXADECIMAL(O7) andalso ?IS_HEXADECIMAL(O8) ->
  -    {Col1, Delta1} = next_col(Col, Delta, 9),
  +    {Col1, Delta1} = ?NEXT_COL(Col, Delta, 9),
       C    = hex_to_dec([O1, O2, O3, O4, O5, O6, O7, O8], 0),
       Ctx1 = case High of
           undefined ->
  
positive.code:     },
      Parser1 = add_error(Parser, Error,
        "Invalid character in tag handle", []),
      {Col1, Delta1} = next_col(Col, Delta, 1),
      parse_tag_shorthand(Rest, Line, Col1, Delta1, Parser1, Ctx);
  
  %% Tag suffix.
  
negative.code: 
  do_parse_anchor_or_alias([C | Rest] = Chars, Line, Col, Delta, Parser, Ctx) ->
      Parser1 = warn_if_non_ascii_line_break(Chars, Line, Col, Parser),
      {Col1, Delta1} = ?NEXT_COL(Col, Delta, 1),
      Ctx1 = Ctx#anchor_ctx{
        output = [C | Ctx#anchor_ctx.output]
      },
  