「プログラミング言語 Scheme」の p.92 について質問です。

(define reenter #f)
(define x 0)
(fluid-let ((x 1))
(call/cc (lambda (k) (set! reenter k)))
(set! x (+ x 1))
x)
=> 2
x
=> 0

とここまではその通りなんですが、
(reenter '*)
=> 3
(reenter '*)
=> 4
とはならず、エラーになります。試したのは Gauche と Petite Chez Scheme です。

errata には特に何も書かれていないようなのですが、(reenter '*) ってのは
何をしたいんでしょうか？