anchor.diff:  tokenize_word_or_literal([C | _], S) when ?IS_WHITESPACE(C) ->
       {error, {whitespace, [C], S}};
   tokenize_word_or_literal([?QUOTE | Rest], S) ->
  -    tokenize_word(Rest, ?INC_COL(S), []);
  +    tokenize_word(Rest, ?INC_COL(S), ?QUOTE, []);
  +tokenize_word_or_literal([?SQUOTE | Rest], S) ->
  +    tokenize_word(Rest, ?INC_COL(S), ?SQUOTE, []);
   tokenize_word_or_literal(Rest, S) ->
       tokenize_literal(Rest, S, []).
       
  -tokenize_word([], S, Acc) ->
  +tokenize_word([], S, _Quote, Acc) ->
       {lists:reverse(Acc), [], S};
  -tokenize_word([?QUOTE | Rest], S, Acc) ->
  +tokenize_word([Quote | Rest], S, Quote, Acc) ->
       {lists:reverse(Acc), Rest, ?INC_COL(S)};
  -tokenize_word([$& | Rest], S, Acc) ->
  +tokenize_word([$& | Rest], S, Quote, Acc) ->
       {{data, Data, false}, S1, Rest1} = tokenize_charref(Rest, ?INC_COL(S), []),
  -    tokenize_word(Rest1, S1, lists:reverse(Data, Acc));
  -tokenize_word([C | Rest], S, Acc) ->
  -    tokenize_word(Rest, ?INC_CHAR(S, C), [C | Acc]).
  +    tokenize_word(Rest1, S1, Quote, lists:reverse(Data, Acc));
  +tokenize_word([C | Rest], S, Quote, Acc) ->
  +    tokenize_word(Rest, ?INC_CHAR(S, C), Quote, [C | Acc]).
   
   tokenize_literal([], S, Acc) ->
       {lists:reverse(Acc), [], S};
  
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};
  