[plt-scheme] reading a whole file

This is embarassing, as I'm sure I've asked it before, but can't find
the answer;

Is there a function to read a whole file into memory (as a string)

 (lambda (i) (read-string 80000 i))
or is there something better?

Cheers,

Stephen