1 files changed, 5 insertions, 0 deletions
diff --git a/src/grt/grt-fst.adb b/src/grt/grt-fst.adb
index 7e912fe80..29bc5acad 100644
--- a/src/grt/grt-fst.adb
+++ b/src/grt/grt-fst.adb
@@ -510,6 +510,11 @@ package body Grt.Fst is
       end loop;
 
       --  Extract sub-scopes.
+      if Vhpi_Get_Kind (Inst) = VhpiPackInstK then
+         --  Except for packages
+         return;
+      end if;
+
       Vhpi_Iterator (VhpiInternalRegions, Inst, Decl_It, Error);
       if Error /= AvhpiErrorOk then
          Avhpi_Error (Error);