diff --git a/src/lsp/top.lsp b/src/lsp/top.lsp
index c0cb93ec60239a9b1f7bd5e9e5b45c686904c5df..d99e3c4f0210db8b9f9c0a072c37f9f6d0c5cee2 100644
--- a/src/lsp/top.lsp
+++ b/src/lsp/top.lsp
@@ -1394,7 +1394,9 @@ package."
 	 (*print-circle* t)
 	 (*readtable* (or *break-readtable* *readtable*))
 	 (*break-message* ;;(format nil "~&~A~%" condition)
-	                  (concatenate 'string (princ-to-string condition) (string #\newline))
+	                  (concatenate 'string
+                                       (prin1-to-string condition) ":" (string #\newline)
+                                       "    " (princ-to-string condition) (string #\newline))
 			  )
 	 (*break-level* (1+ *break-level*))
 	 (break-level *break-level*)