anchor.diff:      Singleton = HasSlash orelse is_singleton(string:to_lower(Tag)),
       {{start_tag, Tag, Attrs, Singleton}, Rest3, S3};
   tokenize(Rest, S) ->
  -    tokenize_data(Rest, S, []).
  +    tokenize_data(Rest, S, [], true).
   
   %% Internal API
   
  
positive.code:     find_gt(Rest, ?INC_CHAR(S, C), HasSlash).
  
  tokenize_charref([], S, Acc) ->
      {{text, lists:reverse(Acc)}, [], S};
  tokenize_charref(Rest=">" ++ _, S, Acc) ->
      {{text, lists:reverse(Acc)}, Rest, S};
  tokenize_charref(Rest=[C | _], S, Acc) when ?IS_WHITESPACE(C) 
                                              orelse C =:= ?QUOTE
                                              orelse C =:= $/ ->
      {{text, lists:reverse(Acc)}, Rest, S};
  tokenize_charref(";" ++ Rest, S, Acc) ->
      Raw = lists:reverse(Acc),
      Data = case mochiweb_charref:charref(Raw) of
  
negative.code: tokenize_literal(Rest=">" ++ _, S, Acc) ->
      {lists:reverse(Acc), Rest, S};
  tokenize_literal([$& | Rest], S, Acc) ->
      {{data, Data, false}, S1, Rest1} = tokenize_charref(Rest, ?INC_COL(S), []),
      tokenize_literal(Rest1, S1, lists:reverse(Data, Acc));
  tokenize_literal(Rest=[C | _], S, Acc) when ?IS_WHITESPACE(C)
                                              orelse C =:= $/
  