[plt-scheme] adapted quiz.ss from web-server, `( ... , (p ...)) in data file

I'm playing with the example quiz.ss in the web-server.  (Thank you  
Don Felgar and Greg Pettyjohn!)
There's a line:
(define quiz (load *data-file*))
that fails:
reference to undefined identifier: p
because, silly me, I tried to use this kind of syntax in the data file:
`("This was to be a practice quiz.  But I am a silly goose!"
   (
    (,(p "What is the value of " (code "(cons 'a empty)") "?")
    ... ) )
What's the best way of doing this?  I'd like my quiz to have more  
formatting options, including insertion of images.

Thanks!

Geoffrey

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20071203/626f4d6b/attachment.html>