1 files changed, 4 insertions, 0 deletions
diff --git a/src/grt/grt-vcd.adb b/src/grt/grt-vcd.adb
index 4795a1879..95a724c76 100644
--- a/src/grt/grt-vcd.adb
+++ b/src/grt/grt-vcd.adb
@@ -568,6 +568,10 @@ package body Grt.Vcd 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);