0.8.16.2: TYPE-ERROR for ERROR

[sbcl.git] / src / code / time.lisp

diff --git a/src/code/time.lisp b/src/code/time.lisp
index 95fe90b..e4e023b 100644 (file)
--- a/src/code/time.lisp
+++ b/src/code/time.lisp
@@ -362,7 +362,7 @@
                 ~S second~:P of system run time~%  ~
 ~@[                 [Run times include ~S second~:P GC run time.]~%  ~]~
                 ~S page fault~:P and~%  ~
-                ~S bytes consed.~%"
+                ~:D bytes consed.~%"
                (max (/ (- new-real-time old-real-time)
                        (float sb!xc:internal-time-units-per-second))
                     0.0)