anchor.diff:  
   on_tc_fail(_Suite,_TC, _Res, State = #state{test_cases = []}) ->
       State;
  -on_tc_fail(_Suite,_TC, Res, State) ->
  +on_tc_fail(Suite, _TC, Res, State) ->
       TCs = State#state.test_cases,
       TC = hd(TCs),
  +    Line = case get_line_from_result(Suite, Res) of
  +               undefined ->
  +                   TC#testcase.line;
  +               L -> L
  +           end,
       NewTC = TC#testcase{
  +              line = Line,
   	      result =
   		  {fail,lists:flatten(io_lib:format("~tp",[Res]))} },
       State#state{ test_cases = [NewTC | tl(TCs)]}.
  +
  +get_line_from_result(Suite, {_Error, [{__M,__F,__A,__I}|_] = StackTrace}) ->
  +    case lists:filter(fun({Mod, _Func, _Arity, _Info}) ->
  +                               Mod =:= Suite
  +                       end, StackTrace) of
  +        [{Suite,_F,_A, Info} | _ ] ->
  +            proplists:get_value(line, Info);
  +        _ ->
  +            undefined
  +    end;
  +get_line_from_result(_, _) ->
  +    undefined.
   
   on_tc_skip(Suite,{ConfigFunc,_GrName}, Res, State) ->
       on_tc_skip(Suite,ConfigFunc, Res, State);
  
positive.code:     %% Have to close the last suite
      terminate(close_suite(State)).
  
  
  
  to_xml(#testcase{ group = Group, classname = CL, log = L, url = U, name = N, time = T, timestamp = TS, result = R}) ->
      ["<testcase ",
       [["group=\"",Group,"\" "]||Group /= ""],
       "name=\"",N,"\" "
       "time=\"",T,"\" "
       "timestamp=\"",TS,"\" ",
       [["url=\"",U,"\" "]||U /= undefined],
       "log=\"",L,"\">",
       case R of
  	 passed ->
  
negative.code:     %% Have to close the previous suite
      pre_init_per_suite(Suite,Config,close_suite(State)).
  
  get_file(Suite) ->
      case beam_lib:chunks(code:which(Suite),["CInf"]) of
          {ok,{_,[{"CInf",Bin}]}} ->
              Source = proplists:get_value(source,binary_to_term(Bin)),
              case filelib:is_file(Source) of
                  true ->
                      Source;
                  false ->
                      undefined
              end;
          _ ->
              undefined
      end.
  
  post_init_per_suite(_Suite,Config, Result, State) ->
      {Result, end_tc(init_per_suite,Config,Result,State)}.
  
  