[plt-scheme] Testing Readability

I've defined 'read-from-string' as:

(define (read-from-string s)
  (read (open-input-string s)))

Is it possible to test the readability of a string to define a
'readable-string?' function without just catching all exceptions from
read?

    Henk