anchor.diff:  		 {document_root, PrivDir}, 
   		 {bind_address,  "localhost"}],
   
  -    i("httpd_reload -> start inets"),
  -
       ok = inets:start(),
       test_server:sleep(5000),
  -    i("httpd_reload -> inets started - start httpd service"),
  -
  -    {ok, Pid0} = inets:start(httpd, [{port, 0}, {ipfamily, inet} | HttpdConf]),
  +
  +    {ok, Pid0} = inets:start(httpd, [{port, 0}, 
  +				     {ipfamily, inet} | HttpdConf]),
       test_server:sleep(5000),
  -    i("httpd_reload -> httpd service started (~p) - get port", [Pid0]),
   
       [{port, Port0}] = httpd:info(Pid0, [port]),         
       test_server:sleep(5000),
  -    i("httpd_reload -> Port: ~p - get document root", [Port0]),
   
       [{document_root, PrivDir}] =  httpd:info(Pid0, [document_root]),
       test_server:sleep(5000),
  -    i("httpd_reload -> document root: ~p - reload config", [PrivDir]),
   
       ok = httpd:reload_config([{port, Port0}, {ipfamily, inet},
   			      {server_name, "httpd_test"}, 
  
positive.code:     after 100 ->
  	    test_server:fail(stand_alone_not_shutdown)
      end,
      i("start_httpd -> stop inets"),
      ok = inets:stop(),
      File0 = filename:join(PrivDir, "httpd.conf"),
      {ok, Fd0} =  file:open(File0, [write]),
  
negative.code:     ok = inets:start(permanent),
      ok = inets:stop().
  
  %%-------------------------------------------------------------------------
  
  start_httpc() ->
      [{doc, "Start/stop of httpc service"}].
  start_httpc(Config) when is_list(Config) ->
      process_flag(trap_exit, true),
      PrivDir = ?config(priv_dir, Config),
  
      ok = inets:start(),
      {ok, Pid0} = inets:start(httpc, [{profile, foo}]),
  
      Pids0 =  [ServicePid || {_, ServicePid} <- inets:services()],  
      true = lists:member(Pid0, Pids0),
      [_|_] = inets:services_info(),	
  
      inets:stop(httpc, Pid0),
  
      test_server:sleep(100),
  
      Pids1 =  [ServicePid || {_, ServicePid} <- inets:services()], 
      false = lists:member(Pid0, Pids1),        
  
      {ok, Pid1} = inets:start(httpc, [{profile, bar}], stand_alone),
  
      Pids2 =  [ServicePid || {_, ServicePid} <- inets:services()], 
      false = lists:member(Pid1, Pids2),   
  
      ok = inets:stop(stand_alone, Pid1),
      receive 
  	{'EXIT', Pid1, shutdown} ->
  	    ok
      after 100 ->
  	    ct:fail(stand_alone_not_shutdown)
      end,
  
      ok = inets:stop(),
  
      application:load(inets),
      application:set_env(inets, services, [{httpc,[{profile, foo}, 
  						  {data_dir, PrivDir}]}]),
      ok = inets:start(),
  
      (?NUM_DEFAULT_SERVICES + 1) = length(inets:services()),
  
      application:unset_env(inets, services),
      ok = inets:stop(),
      ok = inets:start(),
  
      {ok, Pid3} = inets:start(httpc, [{profile, foo}]),
      ok = inets:stop(httpc, foo),
      Pids3 =  [ServicePid || {_, ServicePid} <- inets:services()], 
      false = lists:member(Pid3, Pids3),      
      ok = inets:stop().
  
  %%-------------------------------------------------------------------------
  
  start_httpd() ->
      [{doc, "Start/stop of httpd service"}].
  start_httpd(Config) when is_list(Config) ->
      process_flag(trap_exit, true),
      PrivDir = ?config(priv_dir, Config),
      HttpdConf = [{server_name, "httpd_test"}, {server_root, PrivDir},
  		 {document_root, PrivDir}, {bind_address, any}],
      
      ok = inets:start(),
      {ok, Pid0} = inets:start(httpd, [{port, 0}, {ipfamily, inet} | HttpdConf]),
      Pids0 =  [ServicePid || {_, ServicePid} <- inets:services()],  
      true = lists:member(Pid0, Pids0),
      [_|_] = inets:services_info(),	
  
      inets:stop(httpd, Pid0),
      test_server:sleep(500),
      Pids1 =  [ServicePid || {_, ServicePid} <- inets:services()], 
      false = lists:member(Pid0, Pids1),        
      {ok, Pid1} = 
  	inets:start(httpd, [{port, 0}, {ipfamily, inet} | HttpdConf], 
  		    stand_alone),
      Pids2 =  [ServicePid || {_, ServicePid} <- inets:services()], 
      false = lists:member(Pid1, Pids2),   
      ok = inets:stop(stand_alone, Pid1),
      receive 
  	{'EXIT', Pid1, shutdown} ->
  