world-report: missing PORT in call to write-string

diff --git a/src/runtime/world-report.scm b/src/runtime/world-report.scm
index 30729f24d6f95ccce57e20ab9497efafbc6c33d9..2edea1b64d57e1222c0242fd0fb15d6c4c060f71 100644 (file)
--- a/src/runtime/world-report.scm
+++ b/src/runtime/world-report.scm
@@ -103,7 +103,7 @@ USA.
        (write-size "Heap:     " 6 4) ; heap_alloc_limit - heap_start
        (newline port)
        (write-size "Free:     " 6 5) ; heap_alloc_limit - Free
-       (write-string "  ")
+       (write-string "  " port)
        (write-free-bar status 32 port)
        (newline port)
        (let loop ((i 0)