TinyScheme

One of the examples on reading from input strings shown in the SRFI-6
document located at http://srfi.schemers.org/srfi-6/srfi-6.html does not
work in the current CVS version of TinyScheme. The example along with the
expected output is:

(define p
(open-input-string "(a . (b . c . ())) 34")) --> p

(input-port? p) --> #t
(read p) --> (a b c)
(read p) --> 34
(eof-object? (peek-char p)) --> #t

With TinyScheme, the read calls fail. The first read call returns
Error: syntax error: illegal dot expression
and the ts> prompt doesn't reapper.