From 64403be6d25d98e8c7bbb24d4eb7e68d3800ab7e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 12 Jan 2017 16:30:36 -0800
Subject: [PATCH] Fix bug: guarantee-X doesn't return a useful value when
 compiled with 9.2.

---
 src/runtime/world-report.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/runtime/world-report.scm b/src/runtime/world-report.scm
index 4fdba62a8..30729f24d 100644
--- 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)
 			 '()
-- 
2.25.1