anchor.diff:  
   run_command(_M,spawn,{Args,Opts}) ->
       Pid = spawn_opt(fun() -> apply(?MODULE,process_init,Args) end,[link|Opts]),
  +    kill_me(Pid),
       pal("spawn(~p): ~p",[Args,Pid]),
       Pid;
   run_command(M,spawn,Args) ->
  
positive.code:      multiple_writers, hard_busy_driver, soft_busy_driver,
       scheduling_delay_busy,scheduling_delay_busy_nosuspend,
       scheduling_busy_link].
  
  end_per_testcase(_Case, Config) when is_list(Config) ->
      case whereis(busy_drv_server) of
  
negative.code:     fun_spawn(Fun, []).
  
  fun_spawn(Fun, Args) ->
      Pid = spawn_link(erlang, apply, [Fun, Args]),
      kill_me(Pid),
      Pid.
  
  %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  %% These routines provide a port which will become busy when the
  