diff --git a/src/lsp/format.lsp b/src/lsp/format.lsp
index 1430b8abc..3f4fbb715 100644
--- a/src/lsp/format.lsp
+++ b/src/lsp/format.lsp
@@ -895,7 +895,7 @@
 
 (defun format-print-named-character (char stream)
   (cond ((not (char-printing-p char))
-         (write-string (string-capitalize (char-name char)) stream))
+         (write-string (char-name char) stream))
         (t
          (write-char char stream))))