anchor.diff:  processes_apply_trap(suite) ->
       [];
   processes_apply_trap(Config) when is_list(Config) ->
  -    ?line enable_internal_state(),
  -    ?line PBInfo = erts_debug:get_internal_state(processes_bif_info),
  -    ?line print_processes_bif_info(PBInfo),
  -    ?line WantReds = case PBInfo#processes_bif_info.min_start_reds of
  +    enable_internal_state(),
  +    PBInfo = erts_debug:get_internal_state(processes_bif_info),
  +    print_processes_bif_info(PBInfo),
  +    WantReds = case PBInfo#processes_bif_info.min_start_reds of
   			 R when R > 10 -> R - 1;
   			 _R -> 9
   		     end,
  -    ?line lists:foreach(fun (_) ->
  -				?line erts_debug:set_internal_state(reds_left,
  +    lists:foreach(fun (_) ->
  +				erts_debug:set_internal_state(reds_left,
   								    WantReds),
  -				?line apply(erlang, processes, [])
  +				apply(erlang, processes, [])
   			end,
   			lists:seq(1,100)).
   
  
positive.code: 
  %% Test receiving an EXIT message when spawning a BIF with bad arguments.
  trap_exit_badarg_in_bif(Config) when is_list(Config) ->
      ?line Dog = test_server:timetrap(test_server:seconds(10)),
      ?line process_flag(trap_exit, true),
      ?line test_server:do_times(10, fun trap_exit_badarg_bif/0),
      ?line test_server:timetrap_cancel(Dog),
      ok.
      
  trap_exit_badarg_bif() ->
      ?line Pid = spawn_link(erlang, node, [1]),
      ?line receive
  	      {'EXIT', Pid, {badarg, _}} ->
  		  ok;
  	      Other ->
  		  ?line test_server:fail({unexpected, Other})
  	  end.
  
  %% The following sequences of events have crasched Beam.
  
negative.code:     bump_big(R2, 16#08000000).
  
  bump_big(Prev, Limit) ->
      true = erlang:bump_reductions(100000), %Limited to CONTEXT_REDUCTIONS.
      case process_info(self(), reductions) of
  	      {reductions,Big} when is_integer(Big), Big > Limit ->
  		  erlang:garbage_collect(),
  		  io:format("~p\n", [Big]);
  	      {reductions,R} when is_integer(R), R > Prev ->
  		  bump_big(R, Limit)
  	  end,
  