+;; HACK: Do not suspend writes to avoid
+;; `The connection to ws://localhost:1236/ was interrupted while the page was loading.' (icecat)
+;; `could not decode a text frame as utf-8' (ungoogled chromium)
+(define put-bytevector (@ (ice-9 binary-ports) put-bytevector))
+
+;; This has no effect.
+;; (define put-u8 (@ (ice-9 binary-ports) put-u8))
+