diff --git a/ide/debugmanager.pas b/ide/debugmanager.pas
index a1c76b8b6b..ba53850efe 100644
--- a/ide/debugmanager.pas
+++ b/ide/debugmanager.pas
@@ -2598,16 +2598,13 @@ begin
 end;
 
 function TDebugManager.DoShowExecutionPoint: TModalResult;
-var
-  DummyLocation: TDBGLocationRec;
 begin
   Result := mrCancel;
   if (MainIDE.ToolStatus <> itDebugger)
   or (FDebugger = nil) or Destroying
   then Exit;
 
-  DummyLocation.SrcLine := 0;
-  DebuggerCurrentLine(FDebugger, DummyLocation);
+  DebuggerCurrentLine(FDebugger, FCurrentLocation);
   Result := mrOk;
 end;