Improve Ada.Task_Identification.Image