anchor.diff:  	_ ->
   	    ok
       end.
  +
  +delete_file(FileName) ->
  +    case file:delete(FileName) of
  +        {error, enoent} ->
  +            ok;
  +        Else ->
  +            Else
  +    end.
  +
  +make_dir(Dir) ->
  +    case file:make_dir(Dir) of
  +        {error, eexist} ->
  +            ok;
  +        Else ->
  +            Else
  +    end.
  
positive.code:     %% even if install_release returned {ok,...} there might be an
      %% emulator restart (instruction restart_emulator), so we must
      %% always make sure the node is running.
      wait_node_up(current,ToVsn,ToAppsVsns),
  
      [{"OTP upgrade test",ToVsn,_,current},
       {"OTP upgrade test",FromVsn,_,permanent}] =
  
negative.code: 
      %% Add bin and log dirs
      BinDir = filename:join([InstallDir, "bin"]),
      ok = make_dir(BinDir),
      ok = make_dir(filename:join(InstallDir,"log")),
  
      %% Delete start scripts - they will be added later
      ErtsBinDir = filename:join([InstallDir, "erts-" ++ ErtsVsn, "bin"]),
      ok = delete_file(filename:join([ErtsBinDir, "erl"])),
      ok = delete_file(filename:join([ErtsBinDir, "start"])),
      ok = delete_file(filename:join([ErtsBinDir, "start_erl"])),
  
      %% Copy .boot to bin/start.boot
      copy_file(RelName++".boot",filename:join([BinDir, "start.boot"])),
  