anchor.diff:      case Undef of
   	[] -> ok;
   	_ ->
  +	    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})
  -
  -    end,
  -
  -    ok.
  +    end.
   
   hipe_filter(Undef) ->
       case erlang:system_info(hipe_architecture) of
  
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(L),
  	    ?line ?t:fail({length(L),obsolete_but_not_deprecated})
      end.
      
      
  call_to_deprecated(Config) when is_list(Config) ->
      Server = ?config(xref_server, Config),
  
negative.code: 	_ ->
  	    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),
  	    Fd = open_log(Config, "deprecated_not_obsolete"),
  	    print_mfas(Fd, L),
  	    close_log(Fd),
  	    ?line ?t:fail({length(L),deprecated_but_not_obsolete})
      end.
  
  