anchor.diff:      FailOnError = start_node_get_option_value(fail_on_error, OptList, true),
       Pa = TI#target_info.test_server_dir,
       Prog0 = start_node_get_option_value(erl, OptList, default),
  -    Prog = pick_erl_program(Prog0),
  +    Prog = quote_progname(pick_erl_program(Prog0)),
       Args = 
   	case string:str(SuppliedArgs,"-setcookie") of
   	    0 -> "-setcookie " ++ TI#target_info.cookie ++ " " ++ SuppliedArgs;
  
positive.code: 	{release, S} ->
  	    find_release(S);
  	this ->
  	    lib:progname()
      end.
  
  random_element(L) ->
  
negative.code:     Cookie = TI#target_info.cookie,
      {ok,LSock} = gen_tcp:listen(0,[binary,{reuseaddr,true},{packet,2}]),
      {ok,TracePort} = inet:port(LSock),
      Prog = quote_progname(pick_erl_program(default)),
      Cmd = lists:concat([Prog, " -sname tracer -hidden -setcookie ", Cookie, 
  			" -s ", ?MODULE, " trc ", TraceFile, " ", 
  			TracePort, " ", TI#target_info.os_family]),
  