Widen text columns for printing GC statistics.

diff --git a/src/runtime/gcnote.scm b/src/runtime/gcnote.scm
index 80964a3498ef52ccb4dea4be68613c0662b9eb9a..73a96b50350686806e1346d61c47ccf8a5663d7c 100644 (file)
--- a/src/runtime/gcnote.scm
+++ b/src/runtime/gcnote.scm
@@ -69,9 +69,9 @@ USA.
                 (newline)
                 (write-string
                  (string-pad-right (string-append label ": ") 17))
-                (write-number n-words 8)
+                (write-number n-words 9)
                 (write-string " words = ")
-                (write-number (quotient n-words 1024) 5)
+                (write-number (quotient n-words 1024) 6)
                 (write-string " blocks")
                 (let ((n-words (remainder n-words 1024)))
                   (write-string " + ")