anchor.diff:  		exit({failed_to_start, test_error})
   	end,
   	NO_DOT_ERL = " -boot no_dot_erlang",
  -	CMD2 = Quote ++ Erl ++ Quote ++ NO_DOT_ERL ++ Args,
  +	CMD2 = Prefix ++ Quote ++ Erl ++ Quote ++ NO_DOT_ERL ++ Args,
   	case lists:prefix(Wd, Other2 = os:cmd(CMD2)) of
   	    true -> io:format("~p: Success~n", [?LINE]);
   	    false ->
  
positive.code:     code:del_path(filename:join([DataDir,regexp_appup,app1,ebin])),
      ok.
  
  no_dot_erlang(_Conf) ->
      case init:get_argument(home) of
          {ok,[[Home]]} when is_list(Home) ->
              no_dot_erlang_1(Home);
          _ -> ok
      end.
  
  no_dot_erlang_1(Home) ->
      DotErlang = filename:join(Home, ".erlang"),
      BupErlang = filename:join(Home, ".erlang_testbup"),
      try
  
negative.code: 	Args = " -noinput -run c pwd -run erlang halt",
  	ok = file:write_file(DotErlang, <<"io:put_chars(\"DOT_ERLANG_READ\\n\").\n">>),
  
  	CMD1 = Prefix ++ Quote ++ Erl ++ Quote ++ Args ,
  	case os:cmd(CMD1) of
  	    "DOT_ERLANG_READ" ++ _ ->
                  io:format("~p: Success~n", [?LINE]);
  