gaucheの入力列ポートについての質問です

第14章 入出力 - karetta.jp
http://karetta.jp/book-node/programming-gauche/197706

文字列入力ポートを作成して
(define in (open-input-string "(1 2 3\n\"foo\""))
read手続きを呼び出すと
(read in)

*** READ-ERROR: Read error at "(input string port)":line 2: EOF inside a list (starting from line 1)
Stack Trace:

こう表示されてしまいます
(1 2 3)がかえってくるものだと思うのですが
どこか間違っているのでしょうか