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:   ;; For quad damage bamfing
    (unless (setf *default-quad-zone* (real-zone 25))
      (setf *default-quad-zone* *zone-table*)))
  
  (defun boot-db ()
    (slog "Boot db -- BEGIN.")
  
negative.code:   (clrhash *mobile-prototypes*)
    (clrhash *object-prototypes*)
    (setf *characters* nil)
    (sb-ext:gc)
  
    (slog "Loading zone table.")
    (index-boot :zon)
  