1 files changed, 1 insertions, 1 deletions
diff --git a/src/grt/grt-signals.adb b/src/grt/grt-signals.adb
index 11efa1527..ea714ae20 100644
--- a/src/grt/grt-signals.adb
+++ b/src/grt/grt-signals.adb
@@ -553,7 +553,7 @@ package body Grt.Signals is
       Proc := Get_Current_Process;
       for I in 0 .. Sig.S.Nbr_Drivers - 1 loop
          if Sig.S.Drivers (I).Proc = Proc then
-            return Sig.S.Drivers (I)'Access;
+            return Sig.S.Drivers (I)'Unrestricted_Access;
          end if;
       end loop;
       return null;