anchor.diff:           (setf (command-of new-zonecmd) (char line 0))
   
            (cond
  -           ((find (char line 0) "MOEPDIVW")
  -            (let ((result (scan #/^. ([-01]+)\s+(\d+)\s+(\d+)\s+(\d+)/ line))) 
  +           ((find (char line 0) "MOEPIVW")
  +            (let ((result (scan #/^. ([-01]+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)/ line))) 
                 (unless result
  -                (error "Format error in ~a, line ~d (~a)" zonename line-num line))
  +                (error "Format error in ~a, line ~d: ~s" zonename line-num line))
                 (setf (if-flag-of new-zonecmd) (parse-integer (regref result 1)))
                 (setf (prob-of new-zonecmd) (parse-integer (regref result 2)))
                 (setf (arg1-of new-zonecmd) (parse-integer (regref result 3)))
  -              (setf (arg2-of new-zonecmd) (parse-integer (regref result 4)))))
  +              (setf (arg2-of new-zonecmd) (parse-integer (regref result 4)))
  +              (setf (arg3-of new-zonecmd) (parse-integer (regref result 5)))))
              ((char= (char line 0) #\D)
               (let ((result (scan #/^. ([-01]+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\S+)/ line)))
                 (unless result
  -                (error "Format error in ~a, line ~d" zonename line-num))
  +                (error "Format error in ~a, line ~d: ~s" zonename line-num line))
                 (setf (if-flag-of new-zonecmd) (parse-integer (regref result 1)))
                 (setf (prob-of new-zonecmd) (parse-integer (regref result 2)))
                 (setf (arg1-of new-zonecmd) (parse-integer (regref result 3)))
                 (setf (arg2-of new-zonecmd) (parse-integer (regref result 4)))
                 (setf (arg3-of new-zonecmd) (asciiflag-conv (regref result 5)))))
              (t
  -            (let ((result (scan #/^. ([-01]+)\s+(\d+)\s+(\d+)\s+(\d+)\s+(\d+)/ line))) 
  +            (let ((result (scan #/^. ([-01]+)\s+(\d+)\s+(\d+)\s+(\d+)/ line))) 
                 (unless result
  -                (error "Format error in ~a, line ~d" zonename line-num))
  +                (error "Format error in ~a, line ~d (~s)" zonename line-num line))
                 (setf (if-flag-of new-zonecmd) (parse-integer (regref result 1)))
                 (setf (prob-of new-zonecmd) (parse-integer (regref result 2)))
                 (setf (arg1-of new-zonecmd) (parse-integer (regref result 3)))
  -              (setf (arg2-of new-zonecmd) (parse-integer (regref result 4)))
  -              (setf (arg3-of new-zonecmd) (parse-integer (regref result 5))))))
  +              (setf (arg2-of new-zonecmd) (parse-integer (regref result 4))))))
   
            (setf (line-of new-zonecmd) cmd-num)
            (push new-zonecmd (cmds-of new-zone))
  
positive.code:       (setf (gethash (- (mob-idnum-of mob)) *character-map*) mob)
  
        mob)))
  
  (defun reset-zone (zone)
    ;; Send +special-reset+ notification to all mobiles with specials
  
negative.code: (defvar *boot-time* nil)
  (defvar *reset-q* nil)
  (defvar *top-unique-id* 0)
  (defvar *unique-id-changed* t)
  (defvar *time-info* nil)
  (defvar *current-mob-idnum* 1)
  
  