--- who.lisp~ 2012-10-05 17:16:12.007971946 +0200 +++ who.lisp 2012-10-09 21:08:39.026986297 +0200 @@ -117,7 +117,7 @@ ((eq ,=var= t) ,(case *html-mode* (:sgml - `(fmt " ~A" attr)) + `(fmt " ~A" ,attr)) ;; otherwise default to :xml mode (t `(fmt " ~A=~C~A~C"