anchor.diff:                   :max-dam (max-dam-of proto)
                    :damage (damage-of proto)
                    :sigil-idnum (sigil-idnum-of proto)
  -                 :sigil-level (sigil-level-of proto)))
  +                 :sigil-level (sigil-level-of proto))))
  +    (dotimes (j +max-obj-affect+)
  +      (let ((proto-af (aref (affected-of proto) j)))
  +        (setf (aref (affected-of obj) j)
  +              (make-instance 'affected-type
  +                             :location (location-of proto-af)
  +                             :modifier (modifier-of proto-af)))))
  +    obj))
   
   (defmethod get-weight ((obj obj-data))
     (weight-of obj))
  
positive.code:                  :creation-method 'unknown
                   :creator 0
                   :value (make-array 4 :initial-contents (value-of proto))
                   :kind (kind-of proto)
                   :wear-flags (wear-flags-of proto)
                   :extra-flags (extra-flags-of proto)
  
negative.code:    (sigil-level :accessor sigil-level-of :initarg :sigil-level :initform 0)))
  
  (defun clone-object-proto (proto)
    (let ((obj (make-instance 'obj-data
                   :shared (shared-of proto)
                   :name (name-of proto)
                   :aliases (aliases-of proto)
  