diff --git a/src/lsp/top.lsp b/src/lsp/top.lsp
index e5ebba938..f132bd979 100644
--- a/src/lsp/top.lsp
+++ b/src/lsp/top.lsp
@@ -885,12 +885,14 @@ package."
   (declare (si::c-local))
   (unless *break-enable*
     (throw *quit-tag* nil))
-  (let*((*break-message* (format nil "~&~A~%" condition))
-	(*break-level* (1+ *break-level*))
-	(*break-env* nil)
-	(*standard-input* *debug-io*)
+  (let*((*standard-input* *debug-io*)
 	(*standard-output* *debug-io*)
-	(*readtable* (or *break-readtable* *readtable*)))
+	(*print-pretty* nil)
+	(*print-circle* t)
+	(*readtable* (or *break-readtable* *readtable*))
+	(*break-message* (format nil "~&~A~%" condition))
+	(*break-level* (1+ *break-level*))
+	(*break-env* nil))
     (when (listen *debug-io*)
       (clear-input *debug-io*))
     (princ *break-message*)