diff --git a/src/backends/ocarina-backends-po_hi_ada-runtime.adb b/src/backends/ocarina-backends-po_hi_ada-runtime.adb
index 3ea61d8ca2c3fa69fff209b18285e40c0bd061a8..5e787620bc56f0368863691ac8201acad4e840ac 100644
--- a/src/backends/ocarina-backends-po_hi_ada-runtime.adb
+++ b/src/backends/ocarina-backends-po_hi_ada-runtime.adb
@@ -335,7 +335,10 @@ package body Ocarina.Backends.PO_HI_Ada.Runtime is
    -- RU --
    --------
 
-   function RU (Id : RU_Id; Withed : Boolean := True) return Node_Id is
+   function RU
+     (Id : RU_Id; Withed : Boolean := True; Elaborated : Boolean := False)
+     return Node_Id
+   is
       Result : Node_Id;
    begin
       --  This is a runtime unit and not a runtime entity, so it's
@@ -343,7 +346,7 @@ package body Ocarina.Backends.PO_HI_Ada.Runtime is
 
       Result := Copy_Designator (RUD (Id), False);
       if Withed then
-         Add_With_Package (Result);
+         Add_With_Package (Result, Elaborated => Elaborated);
       end if;
       return Result;
    end RU;
diff --git a/src/backends/ocarina-backends-po_hi_ada-runtime.ads b/src/backends/ocarina-backends-po_hi_ada-runtime.ads
index 516156c75fb57c29569eb82a013715e86b7710d8..c27552e045a0f90f34ed32a6f54b64f5943d4a23 100644
--- a/src/backends/ocarina-backends-po_hi_ada-runtime.ads
+++ b/src/backends/ocarina-backends-po_hi_ada-runtime.ads
@@ -293,7 +293,9 @@ package Ocarina.Backends.PO_HI_Ada.Runtime is
    function RE (Id : RE_Id; Withed : Boolean := True) return Node_Id;
    --  Return a designator for entity Id
 
-   function RU (Id : RU_Id; Withed : Boolean := True) return Node_Id;
+   function RU
+     (Id : RU_Id; Withed : Boolean := True; Elaborated : Boolean := False)
+     return Node_Id;
    --  Return a node for Unit Id
 
 end Ocarina.Backends.PO_HI_Ada.Runtime;