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: 	{ok, A} ->
  	    case get_suite(Suite, A#app.finished) of
  		{ok, S} ->
  		    TDs = [[mk_link(Url, "tc", a2l(Tname)), a2l(RC), 
  			    f2s(Time/1000), Doc] || 
  			      #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)};
  
negative.code: do_top(Url, Apps) ->
      {'div', [{id, "yatsy_top"}],
       yatsy_ehtml:table(["Application"], 
  		       [[mk_link(Url, "app", Aname, err(W))] || 
  			   W = #app{name = Aname} <- Apps])}.
  
  
  err(#app{finished=Suites}) ->
      lists:member(true, [err(X) || X <- Suites]);
  err(#suite{finished=TCs}) ->
      lists:member(true, [err(X) || X <- TCs]);
  err(#tc{rc=ok}) ->
      false;
  err(#tc{rc=_Else}) ->
      true.
  
  
  do_app(Url, App, Apps) ->
      case get_app(App, Apps) of
  	{ok, A} ->
  	    TDs = [[mk_link(Url, "suite", Sname, err(W)), Doc] || 
  		      W = #suite{name = Sname, doc = Doc} <- A#app.finished],
  	    {'div', [{id, "yatsy_app"}],
  	     yatsy_ehtml:table(["Suite", "Description"], TDs)};
  	_ ->
  