2 files changed, 3 insertions, 3 deletions
diff --git a/src/synth/elab-debugger.adb b/src/synth/elab-debugger.adb
index 843e111e0..819f04d9b 100644
--- a/src/synth/elab-debugger.adb
+++ b/src/synth/elab-debugger.adb
@@ -1035,9 +1035,9 @@ package body Elab.Debugger is
       Debug (Reason_Break);
    end Debug_Break;
 
-   procedure Debug_Time is
+   procedure Debug_Time (Top : Synth_Instance_Acc) is
    begin
-      Current_Instance := Root_Instance;
+      Current_Instance := Top;
       Current_Loc := Null_Node;
 
       Debug (Reason_Time);
diff --git a/src/synth/elab-debugger.ads b/src/synth/elab-debugger.ads
index 88cfb21b0..5a046c7bb 100644
--- a/src/synth/elab-debugger.ads
+++ b/src/synth/elab-debugger.ads
@@ -41,7 +41,7 @@ package Elab.Debugger is
    procedure Debug_Leave (Inst : Synth_Instance_Acc);
 
    --  Debug on a time breakpoint.
-   procedure Debug_Time;
+   procedure Debug_Time (Top : Synth_Instance_Acc);
 
    --  To be called in case of execution error, like:
    --  * index out of bounds.