anchor.diff:           end,
       Parent = self(),
       {ok, PortNo} = inet:port(LS),
  -    F1 = fun() -> ?P("acceptor starting"),
  -                  Parent ! {accepted,self(),gen_tcp:accept(LS)}
  +    F1 = fun() ->
  +		 ?P("acceptor starting"),
  +		 Parent ! {accepted,self(),gen_tcp:accept(LS)}
            end,
  -    F2 = fun() -> ?P("connector starting"),
  -                  Parent ! {connected,self(),?CONNECT(Config, "localhost",PortNo,[])}
  +    F2 = fun() ->
  +		 ?P("connector starting"),
  +		 Parent ! {connected,self(),?CONNECT(Config, "localhost",PortNo,[])}
            end,
  -    Ns = lists:seq(1,8),
  +    Ns = lists:seq(1, NumActors),
       ?P("start acceptors"),
       _  = [spawn(F1) || _ <- Ns],
       ?P("await accept timeouts"),
  
positive.code:     ?P("start connectors"),
      _  = [spawn(F2) || _ <- Ns],
      ?P("await accepts"),
      ok = ?EXPECT_ACCEPTS([{_,{ok,_}},{_,{ok,_}},{_,{ok,_}},{_,{ok,_}},{_,{ok,_}},{_,{ok,_}},{_,{ok,_}},{_,{ok,_}}],8,15000),
      ?P("await connects"),
      ok = ?EXPECT_CONNECTS([{_,{ok,_}},{_,{ok,_}},{_,{ok,_}},{_,{ok,_}},{_,{ok,_}},{_,{ok,_}},{_,{ok,_}},{_,{ok,_}}],1000),
      ?P("done"),
  
negative.code: 
  do_several_accepts_in_one_go(Config) ->
      ?P("create listen socket"),
      NumActors = 8,
      LS = case ?LISTEN(Config, 0, [{backlog, NumActors}]) of
               {ok, LSock} ->
                   LSock;
               {error, eaddrnotavail = Reason} ->
  