anchor.diff:  
   (defun post-new-facebook-data
     (&aux (item-id (post-parameter-integer "item-id"))
  +        (userid (post-parameter-integer "userid"))
           (fb-action-id (post-parameter-integer "fb-action-id"))
           (fb-object-id (post-parameter-integer "fb-object-id"))
           (fb-id (post-parameter-integer "fb-id"))
  
positive.code:   (if (server-side-request-p)
      (progn
        (facebook-debugging-log
          nil
          nil
          "modifying the DB"
          (post-parameters*)
          (strcat* "fb-object-id: " fb-object-id)
          (amodify-db item-id :fb-object-id fb-object-id
                              :fb-publishing-in-process nil
                              :fb-actions (cons (list :fb-id fb-id
                                                      :fb-action-type fb-action-type
                                                      :fb-action-id fb-action-id)
                                                it)))
        (setf (return-code*) +http-no-content+)
        nil)
      (progn
  
negative.code: (defvar *facebook-user-token* nil)
  (defvar *facebook-user-token-expiration* nil)
  (defvar *fb-id* nil)
  
  (defun find-nil-fb-actions (&aux items)
    (dolist (result *recent-activity-index*)
      (when (find (result-type result) '(:gratitude :offer :request))
        (let* ((id (result-id result))
               (data (db id)))
          (when (and (getf data :fb-actions)
                     (not (getf (first (getf data :fb-actions))
                                :fb-action-id)))
            (push (list :userid (or (getf data :author)
                                    (getf data :by))
                        :item-id id)
                  items)))))
    items)
  
  (defun fix-fb-link-active-error ()
    (dolist (id *active-people-index*)
  