diff --git a/src/lsp/top.lsp b/src/lsp/top.lsp
index 545952727..493ca8ec1 100644
--- a/src/lsp/top.lsp
+++ b/src/lsp/top.lsp
@@ -1448,11 +1448,12 @@ package."
       (setq *console-owner* mp:*current-process*)
       ;; As of ECL 9.4.1 making a normal function return from the debugger
       ;; seems to be a very bad idea! Basically, it dumps core...
-      (when (listen *debug-io*)
-        (clear-input *debug-io*))
+      (ignore-errors
+        (when (listen *debug-io*)
+          (clear-input *debug-io*)))
       ;; Like in SBCL, the error message is output through *error-output*
       ;; The rest of the interaction is performed through *debug-io*
-      (finish-output)
+      (ignore-errors (finish-output))
       ;; We wrap the following in `ignore-errors' because error may be
       ;; caused by writing to the `*error-output*', what leads to
       ;; infinite recursion!