Index: tags-html.rkt
==================================================================
--- tags-html.rkt
+++ tags-html.rkt
@@ -123,11 +123,11 @@
 (define (html-saylines . elems)
   (apply html-say (decode-linebreaks elems)))
 
 (define (html-verse attrs elems)
   (let* ([title  (maybe-attr 'title attrs "")]
-         [italic? (assoc 'italic attrs)]
+         [italic? (assoc 'italic? attrs)]
          [pre-attrs (cond [italic? '([class "verse"] [style "font-style: italic"])]
                           [else '([class "verse"])])]
          [pre-title (cond [(string>? title "") `(p [[class "verse-heading"]] ,title)]
                           [else ""])])
     `(div [[class "poem"]] ,pre-title (pre ,pre-attrs ,@elems))))