В некоторых случаях полезно осуществить локальное переименование исключения:
package My_IO is
Data_Error: exception renames Ada.IO_Exceptions.Data_Error; . . . end My_IO;