anchor.diff:    ;; Remove all item-based affects
     (dotimes (i +num-wears+)
       ;; Remove equipment affects
  -    (when (aref (equipment-of ch) i)
  -      (apply-object-affects ch (aref (equipment-of ch) i) nil))
  +    (when (get-eq ch i)
  +      (apply-object-affects ch (get-eq ch i) nil))
       (when (aref (implants-of ch) i)
         (apply-object-affects ch (aref (implants-of ch) i) nil)
         (when (= (kind-of (aref (implants-of ch) i)) +item-interface+)
  -        (check-interface (aref (implants-of ch) i) ch nil)))
  +        (check-interface ch (aref (implants-of ch) i) nil)))
       (when (aref (tattoos-of ch) i)
         (apply-object-affects ch (aref (tattoos-of ch) i) nil)))
   
  
positive.code: 
    ;; Re-apply all item-based affects
    (dotimes (i +num-wears+)
      (when (aref (equipment-of ch) i)
        (apply-object-affects ch (aref (equipment-of ch) i) t))
      (when (aref (implants-of ch) i)
        (apply-object-affects ch (aref (implants-of ch) i) t)
        (when (= (kind-of (aref (implants-of ch) i)) +item-interface+)
          (check-interface (aref (implants-of ch) i) ch t)))
      (when (aref (tattoos-of ch) i)
        (apply-object-affects ch (aref (tattoos-of ch) i) t)))
  
  
negative.code:     (when (and (not disable-checks)
                 (eql mode :worn))
        (when (and (= pos +wear-waist+)
                   (get-eq ch +wear-belt+))
          (obj-to-char (unequip-char ch +wear-belt+ :worn nil) ch))
        (when (and (= pos +wear-wield+)
                   (get-eq ch +wear-wield-2+))
          (equip-char ch (unequip-char ch +wear-wield-2+ :worn nil)
                      +wear-wield+ :worn)))
  
  