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: foo(X) -> X+1.
  foo(X, Y) -> X+Y.
  
  flags(doc) -> "Test flags (arity, timestamp) for call_trace/3. "
  		  "Also, test the '{tracer,Pid}' option.";
  flags(Config) when is_list(Config) ->
      ?line Tracer = start_tracer_loop(),
      ?line trace_pid(self(), true, [call,{tracer,Tracer}]),
  
  
negative.code: 	trace_info({erlang,atom_to_list,1}, match_spec),
  
      ?line lists:seq(2, 7),
      ?line _ = atom_to_list(non_literal(nisse)),
      ?line expect({trace,Self,return_from,{lists,seq,2},[2,3,4,5,6,7]}),
      ?line expect({trace,Self,return_from,{erlang,atom_to_list,1},"nisse"}),
  
  