--- 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"
