anchor.diff:      %% But we should never get here.
       exit(die).
   
  -test_tethered() ->
  +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(2)}),
  -        io:format("FAIL.  Tethered client connected.~n", [])
  +        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])
  
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;
  