PowerAda 88
From OC Systems Wiki!
(88) The effect of calling Current_Task from an entry body or interrupt handler.
See C.7.1(19).
The TASK_ID of the task that is currently executing the protected entry or interrupt will be returned. No exception is generated.