anchor.diff:  %%% Common help functions.
   %%%
       
  -
  -print_mfas(Fd, [MFA|T]) ->
  -    io:format(Fd, "~s\n", [format_mfa(MFA)]),
  -    print_mfas(Fd, T);
  -print_mfas(_, []) -> ok.
  +print_mfas(Fd, Server, MFAs) ->
  +    [io:format(Fd, "~s\n", [format_mfa(Server, MFA)]) || MFA <- MFAs],
  +    ok.
   
   format_mfa({M,F,A}) ->
       lists:flatten(io_lib:format("~s:~s/~p", [M,F,A])).
  +
  +format_mfa(Server, MFA) ->
  +    MFAString = format_mfa(MFA),
  +    AQ = "(App)" ++ MFAString,
  +    AppPrefix = case xref:q(Server, AQ) of
  +		    {ok,[App]} -> "[" ++ atom_to_list(App) ++ "]";
  +		    _ -> ""
  +		end,
  +    AppPrefix ++ MFAString.
   
   open_log(Config, Name) ->
       PrivDir = ?config(priv_dir, Config),
  
positive.code: 	    io:put_chars("The following functions are listed "
  			 "in otp_internal:obsolete/3,\n"
  			 "but don't have -deprecated() attributes.\n"),
  	    ?line print_mfas(group_leader(), L),
  	    Fd = open_log(Config, "obsolete_not_deprecated"),
  	    print_mfas(Fd, L),
  	    close_log(Fd),
  	    ?line ?t:fail({length(L),obsolete_but_not_deprecated})
      end.
  
negative.code: 	_ ->
  	    io:put_chars("The following functions have -deprecated() attributes,\n"
  			 "but are not listed in otp_internal:obsolete/3.\n"),
  	    print_mfas(group_leader(), Server, L),
  	    Fd = open_log(Config, "deprecated_not_obsolete"),
  	    print_mfas(Fd, Server, L),
  	    close_log(Fd),
  	    ?line ?t:fail({length(L),deprecated_but_not_obsolete})
      end.
  