From 766ba98a3124aec19aba8f418a4267b51de48a13 Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Tue, 18 Mar 2003 12:51:08 +0000
Subject: [PATCH] Ensure all output of ,collect goes to (command-output).

---
 scheme/env/debug.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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))