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