anchor.diff:              nr)
   
       (let* ((line (get-line inf))
  -           (result (scan #/^(\d+)\s+([\d-]+)\s+([\d-]+)\s+(\d+)d(\d+)\+(\d+)\s+(\d+)d(\d+)\+([-0-9]+)/ line)))
  +           (result (scan #/^(\d+)\s+([\d-]+)\s+([\d-]+)\s+(\d+)d(\d+)\+(\d+)\s+(\d+)d(\d+)\+([-\d]+)/ line)))
         (assert result nil "Illegal numbers-1 line of mobile ~d: ~s~%" nr line)
         (setf (level-of mobile) (parse-integer (regref result 1))
               (hitroll-of mobile) (- 20 (parse-integer (regref result 2)))
  
positive.code:                                       (asciiflag-to-bits (regref result 5))
                                        0)))
  
      (let ((result (scan #/(\d+) ([\d-]+) ([\d-]+)(?: (\d+))?/ (get-line inf))))
        (assert result nil "Expected 3 or 4 args in second numeric line, object ~d" nr)
        (setf (aref (value-of obj) 0) (parse-integer (regref result 1))
              (aref (value-of obj) 1) (parse-integer (regref result 2))
  
negative.code:             (unless (setf line (get-line inf))
                (error "Search error in room #~d." vnum-nr))
  
              (let ((result (scan #/^(\d+)\s+([-\d]+)\s+([-\d]+)\s+([-\d]+)\s+([-\d]+)(?:\s+(\d+))?/ line)))
                (setf (command-of new-search) (parse-integer (regref result 1))
                      (aref (arg-of new-search) 0) (parse-integer (regref result 2))
                      (aref (arg-of new-search) 1) (parse-integer (regref result 3))
  