anchor.diff:              io:format("FAIL.  Tethered owner is dead.~n")
       end,
   
  -    check_extras(3),
  -
  -    erlang:halt().
  +    check_extras(3).
   
   is_up(Pid) ->
       MonitorRef = erlang:monitor(process, Pid),
  
positive.code:             io:format("FAIL.  Unlinked owner is dead.~n")
      end,
  
      Pid2 = erlang:spawn(?MODULE, test_linked, []),
      receive after 200 -> ok end,  % Wait for completion.
      case is_up(Pid2) of
          true ->
  
negative.code:     %% But we should never get here.
      exit(die).
  
  test_tethered(Port) ->
      {ok, Client1} = make_thrift_client([{connect, false}, {monitor, tether}]),
      tester ! {client, tethered, Client1},
      {ok, Client2} = make_thrift_client([{connect, false}, {monitor, tether}]),
      io:format("PASS.  Tethered clients created.~n"),
      try
          gen_server:call(Client2, {connect, make_protocol_factory(Port)}),
          thrift_client:call(Client2, testVoid, []),
          io:format("FAIL.  Tethered client connected and called.~n", [])
      catch
          Kind:Info ->
              io:format("PASS.  Caught tethered error.  ~p:~p~n", [Kind, Info])
  