[racket] Case with strings: normal behavior?

[Laurent]

Hi,

Is this a bug or a not quite intuitive normal behavior?
> (define (foo s)
    (case s
      [("a") 'a]
      [else 'none]))
> (foo "a")
'a
> (foo (string-append "a" ""))
'none

in 5.3.1.5--2012-11-08(5589bcb/a) [3m].

Laurent

____________________
  Racket Users list:
  http://lists.racket-lang.org/users