let solve_dirname dirname =
    (* We have an ambiguity concerning "" and "." *)
    if is_current dirname then
      current_dir
    else
      dirname