0 text-len)))
    (bytevector-u8-set! text text-len u8)
    (set! text-len (1+ text-len)))
  (define (make-outstring)
    (let ((encoding (or (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)))
  (define id (a-sync-glib-read-watch resume
				     (port-&gt