anchor.diff:      (let ((new-kell (car (gethash kell-name (kells current-kell)))))
         (if new-kell
           (setf current-kell new-kell)
  -        (error "No kell named ~a within ~a" kell-name current-kell)))
  +        (error 'no-such-kell-error :name kell-name :container current-kell)))
       (values))
     (defun toplevel (&optional cpu-count)
       (unless cpu-count (setf cpu-count (get-cpu-count)))
       (let* ((*top-kell* (make-instance 'kell :name (gensym "LOCALHOST")))
  -           
              (kilns (start-kilns cpu-count))
              (*package* (find-package :kilns-user))
              (*readtable* *kilns-readtable*))
  
positive.code:                               process))
    (:method ((process kell) (kell kell))
      (if (gethash (name process) (kells kell))
          (error "Can't have two kells with the same name (~a) in the same kell."
                 (name process))
          (progn
            (call-next-method)
            (activate-process (process process) process)))))
  
negative.code:             (when (and trigger matched-processes)
                (trigger-process trigger substitutions)
                (mapc #'activate-continuation matched-processes))))
        (kiln-error (c) (handle-error c)))))
  
  (defun find-triggers-matching-message (name kell)
    "Collect down-patterns from parent kell, up-patterns from subkells, and local-
  