anchor.diff:  	    [_|_] = Connections,
   
   	    %% Now try one more than alowed:
  -	    ct:log("Info Report might come here...",[]),
  +	    ct:pal("Info Report expected here (if not disabled) ...",[]),
   	    try Connect(Host,Port)
   	    of
   		_ConnectionRef1 ->
  
positive.code: 
  
  try_to_connect(Connect, Host, Port, Pid) ->
      {ok,Tref} = timer:send_after(3000, timeout_no_connection), % give the supervisors some time...
      try_to_connect(Connect, Host, Port, Pid, Tref, 1). % will take max 3300 ms after 11 tries
  
  try_to_connect(Connect, Host, Port, Pid, Tref, N) ->
       try Connect(Host,Port)
       of
  	 _ConnectionRef1 ->
  	     %% Step 3 ok: could set up one more connection after killing one
  	     %% Thats good.
  	     timer:cancel(Tref),
  	     ssh:stop_daemon(Pid),
  	     receive % flush. 
  		 timeout_no_connection -> ok
  
negative.code: 		    {fail,"Too many connections accepted"}
  	    catch
  		error:{badmatch,{error,"Connection closed"}} ->
                      ct:log("Step 2 ok: could not set up too many connections. Good.",[]),
  		    %% Now stop one connection and try to open one more
  		    ok = ssh:close(hd(Connections)),
  		    try_to_connect(Connect, Host, Port, Pid)
  