Unexpected case behavior

[Bertrand Petit <plt-s@phoe.frmug.org>]

	I'm surprised by the behaviour of CASE in DrScheme. The
following expressions evaluates to #t but I expected them to evaluate
to "toto". Am I wrong? Or is this a bug?

(define key 'toto)
(case key
    (('toto) "toto")
    (else (eqv? key 'toto)))
==> #t
(version)
==> "103"

-- 
%!PS        '(#<radical-libre> ("Bertrand Petit" . "elrond@phoe.frmug.org"))
297.6 420.9 translate 90 rotate 0 setgray gsave 0 1 1{pop 0 180 moveto 100
180 170 100 170 -10 curveto 180 -9 180 -9 190 -10 curveto 190 100 100 180
0 180 curveto fill 180 rotate}for grestore/Bookman-LightItalic findfont
240 scalefont setfont -151.536392 -63.7998886 moveto (bp)show showpage