 (port-encoding port)
			     (fluid-ref %default-port-encoding)
			     &quot;ISO-8859-1&quot;))
	       (conversion-strategy (port-conversion-strategy port))
	       (out-bv (make-bytevector text-len)))
	   (bytevector-copy! text 0 out-bv 0 text-len)
	   (iconv:bytevector-&gt;string out-bv encoding conversion-strategy)))
       (a-sync-read-watch! resume
			   port
			   (lambda (status)
			     (if (eq? status 'excpt)
				 #f
				 (let next ()
				   (let ((u8
					  (catch 'system-error
					    (lambda