anchor.diff:  		{mod, {application_starter, [ch_sup, {appinc, 41, 43}] }}, 
   		{start_phases, [{init, [kalle]}, {takeover, []}, {go, [sune]}]}]} = 
   	rpc:call(Cp1, application, get_all_key, [appinc]),
  -    ?line [{included_applications,[appinc1,appinc2]},
  +    [{included_applications,[appinc1,appinc2]},
   	   {own2,val2},{own_env1,value1}] = lists:sort(Env),
   
  -    ?line {ok, "Test of new app file, including appnew"} =
  +    {ok, "Test of new app file, including appnew"} =
   	gen_server:call({global, {ch,41}}, {get_pid_key, description}),
  -    ?line {ok, "CXC 138 ai"} = 
  +    {ok, "CXC 138 ai"} = 
   	gen_server:call({global, {ch,41}}, {get_pid_key, id}),
  -    ?line {ok, "2.0"} = 
  +    {ok, "2.0"} = 
   	gen_server:call({global, {ch,41}}, {get_pid_key, vsn}),
  -    ?line {ok, [kernel]} = 
  +    {ok, [kernel]} = 
   	gen_server:call({global, {ch,41}}, {get_pid_key, applications}),
  -    ?line {ok, [appinc1, appinc2]} = 
  +    {ok, [appinc1, appinc2]} = 
   	gen_server:call({global, {ch,41}}, {get_pid_key, included_applications}),
  -    ?line {ok, []} = 
  +    {ok, []} = 
   	gen_server:call({global, {ch,41}}, {get_pid_key, registered}),
  -    ?line {ok, [{init, [kalle]}, {takeover, []}, {go, [sune]}]} =
  +    {ok, [{init, [kalle]}, {takeover, []}, {go, [sune]}]} =
   	gen_server:call({global, {ch,41}}, {get_pid_key, start_phases}),
  -    ?line {ok, Env} = gen_server:call({global, {ch,41}}, {get_pid_key, env}),
  -    ?line [{included_applications,[appinc1,appinc2]},
  +    {ok, Env} = gen_server:call({global, {ch,41}}, {get_pid_key, env}),
  +    [{included_applications,[appinc1,appinc2]},
   	   {own2,val2},{own_env1,value1}] = lists:sort(Env),
  -    ?line {ok, []} = 
  +    {ok, []} = 
   	gen_server:call({global, {ch,41}}, {get_pid_key, modules}),
  -    ?line {ok, {application_starter, [ch_sup, {appinc, 41, 43}] }} = 
  +    {ok, {application_starter, [ch_sup, {appinc, 41, 43}] }} = 
   	gen_server:call({global, {ch,41}}, {get_pid_key, mod}),
  -    ?line {ok, infinity} = 
  +    {ok, infinity} = 
   	gen_server:call({global, {ch,41}}, {get_pid_key, maxP}),
  -    ?line {ok, infinity} = 
  +    {ok, infinity} = 
   	gen_server:call({global, {ch,41}}, {get_pid_key, maxT}),
  -    ?line undefined = 
  +    undefined = 
   	gen_server:call({global, {ch,41}}, {get_pid_key, very_unknown}),
   
   
   
  -    ?line {ok, [{description, "Test of new app file, including appnew"}, 
  +    {ok, [{description, "Test of new app file, including appnew"}, 
   		{id, "CXC 138 ai"}, 
   		{vsn, "2.0"}, 
   		{modules, []}, 
  
positive.code: 	[Res1, Res2, Res3, Res4] ->
  	    Txt = io_lib:format("Illegal results from start ~p ~p ~p ~p",
  				[Res1, Res2, Res3, Res4]),
  	    ?line test_server:fail(lists:flatten(Txt))
      end,
  
      ?line {error, {already_started, app1}} = 
  	rpc:call(Cp1, application, start, [app1]),
  
      stop_node_nice(Cp1),
  
negative.code: config_change(Conf) when is_list(Conf) ->
  
      %% Change to data_dir
      {ok, CWD} = file:get_cwd(),
      DataDir = ?config(data_dir, Conf),
      ok = file:set_cwd(DataDir),
  
      %% Find out application data from boot script
      Boot = filename:join([code:root_dir(), "bin", "start.boot"]),
      {ok, Bin} = file:read_file(Boot),
      Appls = get_appls(binary_to_term(Bin)),
  
      %% Simulate contents of "sys.config"
      Config = [{stdlib, [{par1,sys},{par2,sys}]},
  		    "t1",
  		    "t2.config",
  		    filename:join([DataDir, "subdir", "t3"]),
  		    {stdlib, [{par6,sys}]}],
  
      %% Order application_controller to update configuration
      ok = application_controller:change_application_data(Appls,
  							      Config),
  
      %% Check that stdlib parameters are correctly set
      Env = application:get_all_env(stdlib),
      {value, {par1,sys}} = lists:keysearch(par1, 1, Env),
      {value, {par2,t1}}  = lists:keysearch(par2, 1, Env),
      {value, {par3,t1}}  = lists:keysearch(par3, 1, Env),
      {value, {par4,t2}}  = lists:keysearch(par4, 1, Env),
      {value, {par5,t3}}  = lists:keysearch(par5, 1, Env),
      {value, {par6,sys}} = lists:keysearch(par6, 1, Env),
  
      ok = file:set_cwd(CWD).
  
  %% This function is stolen from SASL module release_handler, OTP R10B
  get_appls({script, _, Script}) ->
  