diff --git a/modules/tools/debugger/autoload/debugger.el b/modules/tools/debugger/autoload/debugger.el
index 00fa108f4..832ab6e6d 100644
--- a/modules/tools/debugger/autoload/debugger.el
+++ b/modules/tools/debugger/autoload/debugger.el
@@ -107,7 +107,7 @@ for what debugger to use. If the prefix ARG is set, prompt anyway."
   "Quit the active debugger, if any."
   (interactive)
   (cond ((and (fboundp 'dap--cur-session) (dap--cur-session))
-         (dap-disconnect))
+         (dap-disconnect (dap--cur-session)))
         ((and (fboundp 'realgud-get-cmdbuf) (realgud-get-cmdbuf))
          (let ((buf (realgud-get-cmdbuf)))
            (ignore-errors