Index: /trunk/source/lib/format.lisp
===================================================================
--- /trunk/source/lib/format.lisp	(revision 15400)
+++ /trunk/source/lib/format.lisp	(revision 15401)
@@ -1810,5 +1810,5 @@
             (dotimes (i w) (write-char ovf stream))
             (return-from format-fixed-aux))
-          (setq spaceleft nil w nil)))
+          (setq spaceleft nil w nil flonum-to-string-width nil)))
       (multiple-value-bind (str before-pt after-pt)
                            (flonum-to-string abs-number