Guile UTF8 filename issue

;; Run the following script using Guile 2.0, after "mkdir tmp && cd tmp && touch 'Müller'"

(let ((dir (opendir ".")))
  (do ((entry (readdir dir) (readdir dir)))
      ((eof-object? entry))
    (write (list entry (file-exists? entry)))
    (newline)))