1 files changed, 4 insertions, 3 deletions
diff --git a/src/vhdl/sem.adb b/src/vhdl/sem.adb
index 833df587f..8a0c0338b 100644
--- a/src/vhdl/sem.adb
+++ b/src/vhdl/sem.adb
@@ -2674,9 +2674,8 @@ package body Sem is
       Current_Design_Unit := Design_Unit;
       Push_Signals_Declarative_Part (Implicit, Null_Iir);
 
-      --  Be sure the name table is empty.
-      --  It is empty at start-up, or saved before recursing.
-      pragma Debug (Name_Table.Assert_No_Infos);
+      --  Have a clean and empty state for scopes.
+      Push_Interpretations;
 
       --  LRM02 10.1 Declarative Region.
       --  In addition to the above declarative region, there is a root
@@ -2732,6 +2731,8 @@ package body Sem is
 
       Close_Declarative_Region;
 
+      Pop_Interpretations;
+
       if Get_Date (Design_Unit) = Date_Analyzing then
          Set_Date (Design_Unit, Date_Analyzed);
       end if;