anchor.diff:                     (if mob
                          (char-to-room mob room)
                          (setf last-cmd 0)))))))
  -           (#\O
  -            nil)
  +           (#\O                         ; Read an object
  +            (let ((tobj (real-object-proto (arg1-of zone-cmd)))
  +                  (room (real-room (arg3-of zone-cmd))))
  +              (cond
  +                ((null tobj)
  +                 (setf last-cmd 0))
  +                ((> (number-of (shared-of tobj)) (arg2-of zone-cmd))
  +                 (setf last-cmd 0))
  +                ((null room)
  +                 (setf last-cmd 0))
  +                (t
  +                 (let ((obj (read-object (arg1-of zone-cmd))))
  +                   (if obj
  +                       (obj-to-room obj room)
  +                       (setf last-cmd 0)))))))
              (#\P
               nil)
              (#\V
  
positive.code:     (let ((mob (clone-mobile-proto proto)))
        (incf (number-of (shared-of proto)))
        (incf (loaded-of (shared-of proto)))
  
        (if (zerop (max-hitp-of mob))
            (setf (max-hitp-of mob) (+ (dice (hitp-of mob) (mana-of mob))
                                       (move-of mob)))
            (setf (max-hitp-of mob) (random-range (hitp-of mob) (mana-of mob))))
  
        (setf (hitp-of mob) (max-hitp-of mob))
        (setf (mana-of mob) (max-mana-of mob))
        (setf (move-of mob) (max-move-of mob))
        (setf (birth-time-of mob) (now))
        (incf *current-mob-idnum*)
        (setf (mob-idnum-of mob) *current-mob-idnum*)
  
negative.code:       (slog "Fixed name capitalization in object ~d" nr)
        (setf (char (name-of obj) 0) (char-downcase (char (name-of obj) 0))))
      
      (setf (line-desc-of obj) (fread-string inf)
            (action-desc-of obj) (fread-string inf))
      (when (> (length (line-desc-of obj)) 1)
        (setf (line-desc-of obj) (string-upcase (line-desc-of obj) :end 1)))
  
      (let ((result (scan #/(\d+) (\S+) (\S+) (\S+) (\S+)/ (get-line inf))))
        (assert result nil "Expected 5 args in first numeric line, object ~d" nr)
        (setf (kind-of obj) (parse-integer (regref result 1))
  