Fixed content handling in ps-who-html.

diff --git a/src/lib/ps-html.lisp b/src/lib/ps-html.lisp
index d1488cf..84ca2db 100644 (file)
--- a/src/lib/ps-html.lisp
+++ b/src/lib/ps-html.lisp
@@ -53,7 +53,7 @@
                       (let (content)
                         (labels ((process-attributes (attrs)
                                    (cond ((null attrs) )
-                                         ((= 1 (length attrs)) (setf content (car attrs)))
+                                         ((= 1 (length attrs)) (setf content attrs))
                                          ((consp (car attrs))
                                           (push `(if ,(first attrs)
                                                      (concat-string ,(format nil " ~A=\"" (second attrs)) ,(third attrs) "\"")