anchor.diff:        ((and (is-npc ch) (member :player (command-info-flags command)))
          (send-to-char ch "Sorry, players ONLY!~%"))
         ((not (check-specials 'command ch command vars))
  -       (apply (command-info-function command) ch vars)))))
  +       (handler-case
  +           (apply (command-info-function command) ch vars)
  +         (parser-error (err)
  +           (send-to-char ch "~a~%" (message-of err))))))))
   
   (defun check-specials (trigger ch command vars)
     (or
  
positive.code:     (format stream "#<CMD-INFO ~s~{ ~a~}>"
              (command-info-pattern cmd)
              (command-info-flags cmd)))
    (define-condition parser-error ()
      ((message :reader message-of :initarg :message)))
    (defmethod print-object ((err parser-error) stream)
      (princ (message-of err) stream)))
  
  ;; "get" thing "from" container
  ;; "get" thing "from"
  
negative.code:      nil)
      (t
       (trace-msg "Single character matched")
       (values t
               (string-left-trim '(#\space) (subseq string 1))
               (rest tokens)))))
  
  (defun pattern-match-string (string tokens)
    (trace-msg "Matching string ~a in middle" (first tokens))
  