~ chicken-core (master) 3a2233db426d3ae6ba2ba215e926e5f636b17e67

commit 3a2233db426d3ae6ba2ba215e926e5f636b17e67
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Sat Sep 5 23:29:16 2026 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Sat Sep 5 23:29:16 2026 +0200

    off-by-one

diff --git a/library.scm b/library.scm
index 7b76159b..b21744d2 100644
--- a/library.scm
+++ b/library.scm
@@ -4618,7 +4618,7 @@ EOF
     (##sys#check-input-port port #t 'char-ready?)
     (let ((class (##sys#slot port 2)))
       ;; check size - for backwards compatibility we still allow missing method
-      ((if (fx> (##sys#size class) 9)
+      ((if (fx> (##sys#size class) 10)
            (##sys#slot class 10)        ; char-ready?
            (##sys#slot class 6))        ; u8-ready?
        port))))