anchor.diff:      {ok,A,B}.
   
   
  -change_pam(doc) -> "Test changing PAM programs for a function.";
  -change_pam(suite) -> [];
  -change_pam(Config) when is_list(Config) ->
  +%% Test changing PAM programs for a function.
  +change_pam(_Config) ->
  +    case test_server:is_native(lists) of
  +	true -> {skip,"lists is native"};
  +	false -> change_pam()
  +    end.
  +
  +change_pam() ->
       ?line start_tracer(),
       ?line Self = self(),
   
  
positive.code:     {match_spec,Prog} = trace_info({erlang,process_info,2}, match_spec),
      ok.
  
  return_trace(doc) -> "Test the new return trace.";
  return_trace(suite) -> [];
  return_trace(Config) when is_list(Config) ->
      return_trace().
  
  return_trace() ->
      X = {save,me},
  
negative.code: nasty() ->
      exit(good_bye).
  
  exception_trace(_Config) ->
      case test_server:is_native(lists) of
  	true -> {skip,"lists is native"};
  	false -> exception_trace()
      end.
  
  exception_trace() ->
      X = {save,me},
  