anchor.diff:  (defun get-person-reputation (id)
     (require-user
       (ensuring-userid (id "/people/~a/reputation")
  -      (profile-activity-html id :type :gratitude))))
  +      (profile-activity-html id :type (:gift :gratitude)))))
   
   (defun get-person-offers (id)
     (require-user
  
positive.code:                                                     :next-url next-url))))
                    (:person 
                      (str (joined-activity-item item)))
                    (:offer
                      (str (inventory-activity-item "offer" item
                                                :show-what (unless (eql type :offer) t)
  
negative.code:         (for i from 0 to (+ start count))
            (if (and (>= i start) items)
              (let ((item (car items)))
                (when (or (not type)
                          (and (eql type :gratitude)
                               (eql :gift (result-type item)))
                          (eql type (result-type item)))
                  (case (result-type item)
                    (:gratitude 
                      (str (unless (and (eql type :gratitude) 
  