anchor.diff:                                   :keepalive t))))
   
   (defmethod add-process ((process kell) (kell network-kell))
  -  "When adding a kell to a network kell, it can be either the kell representing the
  -   current host, a kell representing a different host, or another level of network kell.
  -   This determines which one it should be and adds an appropriate subkell."
  +  "When adding a kell to a network kell, it can be either the kell representing
  +   the current host, a kell representing a different host, or another level of
  +   network kell. This determines which one it should be and adds an appropriate
  +   subkell."
     (let ((new-kell (cond ((string-equal (name process) *local-kell*)
                            process)
                           ((assoc (list (name process)) *host-definitions*
  
positive.code:                    (loop for client = (sockets:accept-connection socket :wait t)
                       do (loop do
                            (handler-case (let ((process (eval (read client))))
                                            (add-process process (parent *local-kell*)))
                              (end-of-file () (return))
                              (kiln-error (c) (handle-error c))))
                       (close client))
  
negative.code:                                              (assoc (list (name process))
                                                      *host-definitions*
                                                      :test #'equal)
                             (make-instance 'host-kell
                               :name name :hostname host :port port)))
                          (t (change-class process 'network-kell)
                             process))))
      (setf (process kell)
  