diff --git a/printer/format/format-e.lsp b/printer/format/format-e.lsp
index a451d1b2c75348650fa7cb424dcb9c57ae4ea4a7..c25f54bff27022b2beae17912f260d91469a5a64 100644
--- a/printer/format/format-e.lsp
+++ b/printer/format/format-e.lsp
@@ -131,7 +131,7 @@
                     (format nil "~6e" x))
           for s2 = (let ((*read-default-float-format* type))
                      (formatter-call-to-string fn x))
-          unless (and (string-equal s " 1.e+0") (string-equal s s2))
+          unless (and (string-equal s "1.0e+0") (string-equal s s2))
           collect (list x s s2)))
   nil)