diff --git a/debugger/gdbmidebugger.pp b/debugger/gdbmidebugger.pp
index e2320705f7..f7bcb3aac5 100644
--- a/debugger/gdbmidebugger.pp
+++ b/debugger/gdbmidebugger.pp
@@ -4215,7 +4215,7 @@ end;
 
 function TGDBMIDebuggerCommandExecute.DoExecute: Boolean;
 
-  function HandleRunError(ARes: TGDBMIExecResult): Boolean;
+  function HandleRunError(var ARes: TGDBMIExecResult): Boolean;
   var
     s, s2: String;
     List: TGDBMINameValueList;