anchor.diff:  find_gt(">" ++ Rest, S, HasSlash) ->
       {Rest, ?INC_COL(S), HasSlash};
   find_gt([$/ | Rest], S, _) ->
  -    {Rest, ?INC_COL(S), true};
  +    find_gt(Rest, ?INC_COL(S), true);
   find_gt([C | Rest], S, HasSlash) ->
       find_gt(Rest, ?INC_CHAR(S, C), HasSlash).
   
  
positive.code: 
  %% @doc Loosely tokenizes and generates parse trees for HTML 4.
  -module(mochiweb_html).
  -export([tokens/1, parse/1, parse_tokens/1, test/0]).
  
  % This is a macro to placate syntax highlighters..
  -define(QUOTE, $\").
  -define(ADV_COL(S, N), S#decoder{column=N+S#decoder.column}).
  -define(INC_COL(S), S#decoder{column=1+S#decoder.column}).
  -define(INC_LINE(S), S#decoder{column=1, line=1+S#decoder.line}).
  
negative.code: tokenize_charref(Rest=">" ++ _, S, Acc) ->
      {{data, lists:reverse(Acc), false}, Rest, S};
  tokenize_charref(Rest=[C | _], S, Acc) when ?IS_WHITESPACE(C) 
                                              orelse C =:= ?SQUOTE
                                              orelse C =:= ?QUOTE
                                              orelse C =:= $/ ->
      {{data, lists:reverse(Acc), false}, Rest, S};
  