anchor.diff:  
   style() ->
       {style, [],
  -     ["#yatsy_output {margin-left: 20px; margin-top: 40px}\n"
  +     ["\n#yatsy_output {margin-left: 20px; margin-top: 40px}\n"
         "#yatsy_output table {border-collapse: collapse}\n"
         "#yatsy_output td {border: 1px solid black; padding: 3px 6px 3px 6px}\n"
         "#yatsy_output th {border: 1px solid black; text-align: left; padding: 3px 6px 3px 6px}\n"
         "#yatsy_output h1 {font-size: x-large; padding-bottom: 10px}\n"
  +      "#yatsy_error {background-color: #996666}\n"
         ]}.
   
   
  
positive.code: %%% Either we generate one html page per app/suite/tc,
  %%% or we have one yatsy.yaws page + query arguments.
  %%%
  mk_link(F, _Key, Name) when function(F) ->
      {a, [{href, F(Name)}], Name};
  mk_link(Url, Key, Aname) ->
      case qargs_p(Url) of
  	true -> {a, [{href, Url++"&"++Key++"="++Aname}], Aname};
  	_    -> {a, [{href, Url++"?"++Key++"="++Aname}], Aname}
      end.
  
  %%% Do the Url contain any '?' , i.e query args ?
  qargs_p(Url) ->
  
negative.code: 	{ok, A} ->
  	    case get_suite(Suite, A#app.finished) of
  		{ok, S} ->
  		    TDs = [[mk_link(Url, "tc", a2l(Tname), err(W)), a2l(RC), 
  			    f2s(Time/1000), Doc] || 
  			      W = #tc{name = Tname, doc = Doc, 
  				      rc = RC, time = Time} <- S#suite.finished],
  		    {'div', [{id, "yatsy_suite"}],
  		     yatsy_ehtml:table(["Test case","Result",
  					"Time (ms)", "Description"],TDs)};
  