cl:listen not functioning on file streams

touch a file (here foo.txt) and try:

(with-open-file (s "foo.txt") (listen s)) ; => T

This should return nil as there is no more content in the file.

This issue was reported against clasp, but applies to ecl as well - that was kindly reported to me on irc by @yitzi.