anchor.diff:  
   (defun get-gratitudes-new ()
     (require-user
  -    (gratitude-compose :subjects (parse-subject-list (get-parameter "subject")))))
  +    (gratitude-compose :subjects (parse-subject-list (get-parameter "subject"))
  +                       :next (referer))))
   
   (defun post-gratitudes-new ()
     (require-active-user
  
positive.code:     (with-mutex (*recent-activity-mutex*)
        (asetf *recent-activity-index* (remove id it :key #'result-id)))
  
      (delete-comments id)
  
      (with-locked-hash-table (*profile-activity-index*)
        (dolist (person people)
          (asetf (gethash person *profile-activity-index*)
                 (remove result it))))
  
      (when result (geo-index-remove *activity-geo-index* result))
      (remove-from-db id)))
  
  (defun gratitude-compose (&key subjects text next existing-url single-recipient groupid)
    (if subjects
  
negative.code:                (dolist (person (cdr results))
                   (str (id-button (car person) "add" (cdr person)))))))
  
           (:input :type "submit" :class "cancel" :name "cancel" :value "Back")
  
           (when groupid
             (htm (:input :type "hidden" :name "subject" :value groupid)))
  