anchor.diff:      ;; or righteous penetration
       (incf reduction
             (cond
  -            ((or (not (is-affected-by-sanc ch attacker))
  -                 (is-vampire ch))
  +            ((and ch
  +                  (or (not (is-affected-by-sanc ch attacker))
  +                      (is-vampire ch)))
                0)
               ((and (not (is-neutral ch))
                     (or (is-cleric ch) (is-knight ch)))
  
positive.code:         ;; log death of victim
          (raw-kill victim ch kind))
  
        (when (eql (master-of victim) ch)
          (stop-following victim))
  
        (plusp amount))))
  
negative.code:     (unless (zerop (gold-of ch))
        (obj-to-obj (make-money-object (gold-of ch) :gold) corpse))
      (unless (zerop (cash-of ch))
        (obj-to-obj (make-money-object (cash-of ch) :cash) corpse))))
  
  (defun raw-kill (ch killer attacktype)
    (when (and (is-npc ch)
  