diff --git a/scheme/env/debug.scm b/scheme/env/debug.scm
index b23c042..713164a 100644
--- a/scheme/env/debug.scm
+++ b/scheme/env/debug.scm
@@ -290,12 +290,12 @@ Kind should be one of: names maps files source tabulate"
     (let ((after (memory-status memory-status-option/available #f)))
       (display "Before: " port)
       (write before port)
-      (display " words free in semispace")
-      (newline)
+      (display " words free in semispace" port)
+      (newline port)
       (display "After:  " port)
       (write after port)
-      (display " words free in semispace")
-      (newline))))
+      (display " words free in semispace" port)
+      (newline port))))
 
 (define memory-status-option/available (enum memory-status-option available))