Hi,<br><br>Is this a bug or a not quite intuitive normal behavior?<br>&gt; (define (foo s)<br>    (case s<br>      [(&quot;a&quot;) &#39;a]<br>      [else &#39;none]))<br>&gt; (foo &quot;a&quot;)<br>&#39;a<br>&gt; (foo (string-append &quot;a&quot; &quot;&quot;))<br>

&#39;none<br><br>in 5.3.1.5--2012-11-08(5589bcb/a) [3m].<br><br>Laurent<br>