anchor.diff:  
   (defun nearby-inventory-items (type &key base (subtag-count 4) (distance 50) q)
     (with-location
  -    (let ((nearby (sort
  -                    (if q
  -                      (result-id-intersection
  -                        (geo-index-query (case type
  -                                           (:offer *offer-geo-index*)
  -                                           (t *request-geo-index*))
  -                                         *latitude*
  -                                         *longitude*
  -                                         distance)
  -                        (stem-index-query (case type
  -                                           (:offer *offer-stem-index*)
  -                                           (t *request-stem-index*))
  -                                          q))
  +    (let ((nearby (if q
  +                    (result-id-intersection
                         (geo-index-query (case type
                                            (:offer *offer-geo-index*)
                                            (t *request-geo-index*))
  -                                         *latitude*
  -                                         *longitude*
  -                                       distance))
  -                    #'> :key #'inventory-rank))
  +                                       *latitude*
  +                                       *longitude*
  +                                       distance)
  +                      (stem-index-query (case type
  +                                         (:offer *offer-stem-index*)
  +                                         (t *request-stem-index*))
  +                                        q))
  +                    (geo-index-query (case type
  +                                       (:offer *offer-geo-index*)
  +                                       (t *request-geo-index*))
  +                                       *latitude*
  +                                       *longitude*
  +                                     distance)))
             (items nil))
         (let ((tags (make-hash-table :test 'equalp)))
           (dolist (item nearby)
  
positive.code:                                                        "more"
                                                         (reduce #'+ (subseq subtags (- subtag-count 1)) :key #'cdr))))
                                             (sort top-subtags #'string< :key #'car)))))))
                  items)))))
  
  (defun nearby-inventory-top-tags (type &key (count 9) (more t) base (subtag-count 4) q)
    (multiple-value-bind (nearby items)
  
negative.code:             (when (or base q)
                (htm
                  (:p (:a :href (str base-url) (str (s+"show all " type "s")))))))
  
            (iter (for i from 0 to (+ start 20))
                  (cond
                    ((< i start)
  