anchor.diff:  		 (:strong (who:str (string-capitalize category)))
   		 (:br))
   	       (with-output-to-string (s)
  -		 (loop for each-plist in (getf plist category) do
  +		 (loop for each-plist in (cdr (assoc category plist)) do
   		      (format s
   			      (who:with-html-output-to-string (*standard-output* nil)
   				(:div :id "inner"
   				      (who:str (with-output-to-string (d)
  -						 (loop for (key value) on each-plist by #'cddr do
  -						      (format d (entry key each-plist))))))))))))
  +						 (loop for sub-list in each-plist do
  +						      (format d (entry (first sub-list) each-plist))))))))))))
   
   (defun string-from-plist (category plist)
     (who:with-html-output-to-string (*standard-output* nil)
  
positive.code: 					(:a :href (concatenate 'string
  							       "/"
  							       (second (string-split 
  									(getf plist category) #\:))
  							       "/" (getf plist category))
  					    (who:str (getf plist category))))
  				      (if (typep (getf plist category) 'number)
  					  (write-to-string (getf plist category))
  					  (string (getf plist category))))))))))
  
  (defun string-from-plists (category plist)
    (concatenate 'string
  
negative.code: (defun artist-lookup-html (plist)
    (concatenate 'string
  	       (who:with-html-output-to-string (*standard-output* nil)
  		 (:div :id "widget" (who:str (generate-embed-html (cdr (assoc :href plist)))))
  		 (:hr))
  	       (entry :name plist) (list #\Newline)
  	       (entry :href plist) (list #\Newline)
  