bug#20302: peek-char messes up file position on binary string ports

[David Kastrup]

Any idea how to work around _this_ one?

(use-modules (rnrs bytevectors) (rnrs io ports))
(let ((port (open-bytevector-input-port
             (string->utf8 "Blablabla\nBlablabla\n"))))
  (seek port 13 SEEK_SET)
  (format #t "~c ~d\n" (peek-char port)
          (ftell port)))
;; Outputs b 3 but should output b 13

This is using
guile (GNU Guile) 2.0.11
Packaged by Debian (2.0.11-deb+1-1)

-- 
David Kastrup