Is AllegroServe INSANE ?!(Or at least very buggy .. )

Add this to examples.cl :

(publish :path "/insanity"
:content-type "text/html"
:function #'(lambda (req ent)
(with-http-response (req ent)
(with-http-body (req ent)
(html (:princ-safe
(eq (read-from-string "X") (quote X))
))))))

The source of the generated page (my ip /insanity ) is
<html><head></head><body>NIL</body></html>

I may not be a Lisp guru , but I know (eq (read-from-string "X")
(quote X)) is T .
Can someone please explain me this behavior ? :((

.