anchor.diff:      ?P("[server] await accept"),
       case gen_tcp:accept(L) of
   	{ok, S} ->
  -	    Master ! {self(),reader,
  +            ?P("[server] accepted ~p", [S]),
  +	    Master ! {self(), reader,
   		      spawn_link(fun () -> fill_sendq_read(S, Master) end)},
   	    Msg = "the quick brown fox jumps over a lazy dog~n",
   	    fill_sendq_write(S, Master, [Msg,Msg,Msg,Msg,Msg,Msg,Msg,Msg]);
  
positive.code: 
                  {Server, SErrors} ->
                      ?P("UNEXPECTED SERVER ERROR(S): "
                         "~n   ~p", [SErrors]),
                      ct:fail([{server, SErrors}, {reader, []}]);
  
                  {Reader, [{error,closed}] = RErrors} ->
  
negative.code: 
                  {Reader, RErrors} ->
                      ?P("UNEXPECTED READER ERROR(S): "
                         "~n   ~p"
                         "~n   ~p", [RErrors, flush([])]),
                      ct:fail([{server, []}, {reader, RErrors}])
  
              after 3000 ->
  