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