anchor.diff:              io:format("FAIL.  Unlinked owner is dead.~n")
       end,
   
  -    Pid2 = erlang:spawn(?MODULE, test_linked, []),
  +    Pid2 = erlang:spawn(?MODULE, test_linked, [Port]),
       receive after 200 -> ok end,  % Wait for completion.
       case is_up(Pid2) of
           true ->
  
positive.code:             io:format("PASS.  Linked owner is dead.~n")
      end,
  
      Pid3 = erlang:spawn(?MODULE, test_tethered, []),
      receive after 200 -> ok end,  % Wait for completion.
      case is_up(Pid3) of
          true ->
  
negative.code:         50 ->
              erlang:demonitor(MonitorRef),
              true
      end.
  
  wait_for(Pid) ->
      MonitorRef = erlang:monitor(process, Pid),
      receive
          {'DOWN', MonitorRef, process, Pid, _Info} ->
              ok
      end.
  
  check_extras(0) -> ok;
  