ada: Tweak internal subprogram in Ada.Directories