anchor.diff:  process_info_lock_reschedule(Config) when is_list(Config) ->
       %% We need a process that is running and an item that requires
       %% process_info to take the main process lock.
  -    ?line Target1 = spawn_link(fun tok_loop/0),
  -    ?line Name1 = process_info_lock_reschedule_running,
  -    ?line register(Name1, Target1),
  -    ?line Target2 = spawn_link(fun () -> receive after infinity -> ok end end),
  -    ?line Name2 = process_info_lock_reschedule_waiting,
  -    ?line register(Name2, Target2),
  -    ?line PI = fun(_) ->
  -		       ?line erlang:yield(),
  -		       ?line [{registered_name, Name1}]
  -			   = process_info(Target1, [registered_name]),
  -		       ?line [{registered_name, Name2}]
  -			   = process_info(Target2, [registered_name]),
  -		       ?line erlang:yield(),
  -		       ?line {registered_name, Name1}
  -			   = process_info(Target1, registered_name),
  -		       ?line {registered_name, Name2}
  -			   = process_info(Target2, registered_name),
  -		       ?line erlang:yield(),
  -		       ?line [{registered_name, Name1}| _]
  -			   = process_info(Target1),
  -		       ?line [{registered_name, Name2}| _]
  -			   = process_info(Target2)
  -	       end,
  -    ?line lists:foreach(PI, lists:seq(1,1000)),
  +    Target1 = spawn_link(fun tok_loop/0),
  +    Name1 = process_info_lock_reschedule_running,
  +    register(Name1, Target1),
  +    Target2 = spawn_link(fun () -> receive after infinity -> ok end end),
  +    Name2 = process_info_lock_reschedule_waiting,
  +    register(Name2, Target2),
  +    PI = fun(_) ->
  +	    erlang:yield(),
  +	    [{registered_name, Name1}] = process_info(Target1, [registered_name]),
  +	    [{registered_name, Name2}] = process_info(Target2, [registered_name]),
  +	    erlang:yield(),
  +	    {registered_name, Name1} = process_info(Target1, registered_name),
  +	    {registered_name, Name2} = process_info(Target2, registered_name),
  +	    erlang:yield(),
  +	    [{registered_name, Name1}| _] = process_info(Target1),
  +	    [{registered_name, Name2}| _] = process_info(Target2)
  +    end,
  +    lists:foreach(PI, lists:seq(1,1000)),
       %% Make sure Target1 still is willing to "tok loop"
  -    ?line case process_info(Target1, status) of
  -	      {status, OkStatus} when OkStatus == runnable;
  -				      OkStatus == running;
  -				      OkStatus == garbage_collecting ->
  -		  ?line unlink(Target1),
  -		  ?line unlink(Target2),
  -		  ?line exit(Target1, bang),
  -		  ?line exit(Target2, bang),
  -		  ?line OkStatus;
  -	      {status, BadStatus} ->
  -		  ?line ?t:fail(BadStatus)
  -	  end.
  +    case process_info(Target1, status) of
  +	{status, OkStatus} when OkStatus == runnable;
  +				OkStatus == running;
  +				OkStatus == garbage_collecting ->
  +	    unlink(Target1),
  +	    unlink(Target2),
  +	    exit(Target1, bang),
  +	    exit(Target2, bang),
  +	    OkStatus;
  +	{status, BadStatus} ->
  +	    ?t:fail(BadStatus)
  +    end.
   
   pi_loop(_Name, _Pid, 0) ->
       ok;
  
positive.code:     end.
  
  garb_other_running(Config) when is_list(Config) ->
      ?line Stop = make_ref(),
      ?line {Pid, Mon} = spawn_monitor(fun () -> gor(0, Stop) end),
      ?line Reds = lists:foldl(fun (_, OldReds) ->
  				     ?line erlang:garbage_collect(Pid),
  				     ?line receive after 1 -> ok end,
  				     ?line Pid ! {self(), reds},
  				     ?line receive
  					       {reds, NewReds, Pid} ->
  						   ?line true = (NewReds > OldReds),
  						   ?line NewReds
  					   end
  			     end,
  			     0,
  			     lists:seq(1, 10000)),
      ?line receive after 1 -> ok end,
      ?line Pid ! {self(), Stop},
      ?line receive
  	      {stopped, Stop, StopReds, Pid} ->
  		  ?line true = (StopReds > Reds)
  	  end,
      ?line receive {'DOWN', Mon, process, Pid, normal} -> ok end,
      ?line ok.
  
  %% Internal functions
  
  
negative.code:     start_node(Config, "").
  
  start_node(Config, Args) when is_list(Config) ->
      Pa = filename:dirname(code:which(?MODULE)),
      {A, B, C} = now(),
      Name = list_to_atom(atom_to_list(?MODULE)
  			      ++ "-"
  			      ++ atom_to_list(?config(testcase, Config))
  			      ++ "-"
  