1 files changed, 1 insertions, 1 deletions
diff --git a/src/vhdl/simulate/simul-execution.adb b/src/vhdl/simulate/simul-execution.adb
index d07b927a7..7876c04ba 100644
--- a/src/vhdl/simulate/simul-execution.adb
+++ b/src/vhdl/simulate/simul-execution.adb
@@ -95,7 +95,7 @@ package body Simul.Execution is
             end;
          when Kind_Package =>
             pragma Assert (Scope.Pkg_Parent = Global_Info);
-            return Package_Instances (Scope.Pkg_Slot);
+            return Global_Instances.Objects (Scope.Pkg_Slot).Instance;
          when others =>
             raise Internal_Error;
       end case;