From 1ba57e8915ce728ccbe843cd0f31458b72d5b3ff Mon Sep 17 00:00:00 2001
From: Gary Houston <ghouston@arglist.com>
Date: Tue, 14 Sep 1999 20:56:13 +0000
Subject: [PATCH] 3 more bytes.

---
 test-suite/tests/ports.test | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test
index e7eb256ae..b07a2edfd 100644
--- a/test-suite/tests/ports.test
+++ b/test-suite/tests/ports.test
@@ -175,7 +175,7 @@
    (fcntl r F_SETFL O_NONBLOCK)
    (pass-if "non-blocking-I/O"
 	    (catch 'system-error
-		   (lambda () (read-char r))
+		   (lambda () (read-char r) #f)
 		   (lambda (key . args)
 		     (and (eq? key 'system-error)
 			  (= (car (list-ref args 3)) EAGAIN)))))))
-- 
2.20.1