Fix bug: guarantee-X doesn't return a useful value when compiled with 9.2.

diff --git a/src/runtime/world-report.scm b/src/runtime/world-report.scm
index 4fdba62a8ab338503fbd1c566eeaa51c8123cb59..30729f24d6f95ccce57e20ab9497efafbc6c33d9 100644 (file)
--- a/src/runtime/world-report.scm
+++ b/src/runtime/world-report.scm
@@ -33,7 +33,7 @@ USA.
   (let ((port
         (if (default-object? port)
             (current-output-port)
-            (guarantee-output-port port 'WORLD-REPORT)))
+            (guarantee textual-output-port? port 'WORLD-REPORT)))
        (flags (cons (cons (console-thread) "console")
                     (if (default-object? thread-flags)
                         '()