anchor.diff:      to_tokens({Tag0, [], Acc});
   to_tokens({Tag0, Attrs, Acc}) ->
       Tag = to_tag(Tag0),
  -    case is_singleton(Tag) of 
  +    case is_singleton(Tag) of
           true ->
               to_tokens([], [{start_tag, Tag, Attrs, true}]);
           false ->
  
positive.code:         <<_:O/binary, "?>", _/binary>> ->
              ?ADV_COL(S, 2);
          <<_:O/binary, ">", _/binary>> ->
  			?ADV_COL(S, 1);
          <<_:O/binary, "/>", _/binary>> ->
  			?ADV_COL(S, 2);
          %% tokenize_attributes takes care of this state:
          %% <<_:O/binary, C, _/binary>> ->
          %%     find_qgt(Bin, ?INC_CHAR(S, C));
  
negative.code:     ok.
  
  parse_broken_pi_test() ->
          D0 = <<"<html><?xml:namespace prefix = o ns = \"urn:schemas-microsoft-com:office:office\" /></html>">>,
          ?assertEqual(
                  {<<"html">>, [], [
                          { pi, <<"xml:namespace">>, [ { <<"prefix">>, <<"o">> },
                                                       { <<"ns">>, <<"urn:schemas-microsoft-com:office:office">> } ] }
                  ] },
                  mochiweb_html:parse(D0)),
          ok.
  
  parse_funny_singletons_test() ->
          D0 = <<"<html><input><input>x</input></input></html>">>,
          ?assertEqual(
                  {<<"html">>, [], [
                          { <<"input">>, [], [] },
                          { <<"input">>, [], [ <<"x">> ] }
                  ] },
                  mochiweb_html:parse(D0)),
          ok.
  
  to_html_singleton_test() ->
      D0 = <<"<link />">>,
  