1 files changed, 2 insertions, 5 deletions
diff --git a/src/grt/grt-main.adb b/src/grt/grt-main.adb
index f5006ef6b..4c37e1da7 100644
--- a/src/grt/grt-main.adb
+++ b/src/grt/grt-main.adb
@@ -109,8 +109,6 @@ package body Grt.Main is
       use Grt.Errors;
       Stop : Boolean;
       Status : Integer;
-      Status1 : Integer;
-      pragma Unreferenced (Status1);
    begin
       --  Register modules.
       --  They may insert hooks.
@@ -174,11 +172,10 @@ package body Grt.Main is
 
          --  Do the simulation.
          Status := Run_Through_Longjump (Grt.Processes.Simulation'Access);
-
-         Status1 := Run_Through_Longjump
-           (Grt.Processes.Finalize_Simulation'Access);
       end if;
 
+      Grt.Hooks.Call_Finish_Hooks;
+
       if Flag_Stats then
          Disp_Stats_Hook (0);
       end if;