anchor.diff:  	_ ->
   	    io:put_chars("The following functions have -deprecated() attributes,\n"
   			 "but are not listed in otp_internal:obsolete/3.\n"),
  -	    ?line print_mfas(group_leader(), L),
  +	    print_mfas(group_leader(), Server, L),
   	    Fd = open_log(Config, "deprecated_not_obsolete"),
  -	    print_mfas(Fd, L),
  +	    print_mfas(Fd, Server, L),
   	    close_log(Fd),
   	    ?line ?t:fail({length(L),deprecated_but_not_obsolete})
       end.
  
positive.code: 	    Fd = open_log(Config, "undefined_functions"),
  	    foreach(fun ({MFA1,MFA2}) ->
  			    io:format("~s calls undefined ~s",
  				      [format_mfa(MFA1),format_mfa(MFA2)]),
  			    io:format(Fd, "~s ~s\n",
  				      [format_mfa(MFA1),format_mfa(MFA2)])
  		    end, Undef),
  	    close_log(Fd),
  	    ?line ?t:fail({length(Undef),undefined_functions_in_otp})
  
negative.code: %%% Common help functions.
  %%%
      
  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),
  