diff --git a/src/lsp/top.lsp b/src/lsp/top.lsp
index d674ef7bb..8da7fbeaa 100644
--- a/src/lsp/top.lsp
+++ b/src/lsp/top.lsp
@@ -777,6 +777,7 @@ Use special code 0 to cancel this operation.")
   (let*((*print-level* 2)
 	(*print-length* 4)
 	(*print-pretty* t)
+	(*print-escape* nil)
 	(*print-readably* nil)
 	(functions) (blocks) (variables))
     (unless (si::bc-disassemble (ihs-fun *ihs-current*))
@@ -1013,6 +1014,7 @@ Use special code 0 to cancel this operation.")
   (let*((*print-level* 2)
 	(*print-length* 4)
 	(*print-pretty* t)
+	(*print-escape* nil)
 	(*print-readably* nil))
     (multiple-value-bind (local-variables special-variables functions blocks restarts)
         (ihs-environment *ihs-current*)