diff --git a/src/lsp/format.lsp b/src/lsp/format.lsp
index c1ad851b5..a1291e4ef 100644
--- a/src/lsp/format.lsp
+++ b/src/lsp/format.lsp
@@ -1357,7 +1357,7 @@
 (defun format-fixed-aux (stream number w d k ovf pad atsign)
   (declare (si::c-local))
   (cond
-   ((or (not (or w d))
+   ((or (not (or w d k))
         #-ecl
         (and (floatp number)
              (or (float-infinity-p number)