anchor.diff:  
   (defun local-actors (actor-id)
     (declare (ignore actor-id))
  -  (mapcar #'client-character-id (hash-table-values (slot-value *websocket-server* 'clients))))
  +  (mapcar #'client-entity-id (hash-table-values (slot-value *websocket-server* 'clients))))
   
   ;;;
   ;;; Client messages
  
positive.code:   (setf (transient-session-value 'websocket-clients session) new-value))
  
  (defmethod ws:resource-accept-connection ((res chat-server) resource-name headers ws-client)
    (declare (ignore resource-name))      ; Is this wise?
    (continuable
      (add-client res (make-client :ws-client ws-client)))
    t)
  
negative.code:          (char-index (jsown:val message "char"))
           (character-id (nth char-index (account-characters (client-account-id client)))))
      (cond ((and client-valid-p character-id)
             (logit "Client validated: ~S.~%It's now playing as ~A."
                    client (character-name character-id))
             ;; TODO - Need to do something about clients connecting to the same entity.
             #+nil
             (when-let (existing-client (find character-id
                                              (session-websocket-clients (client-session client))
                                              :key #'client-entity-id))
               (deletef existing-client (session-websocket-clients (client-session client)))
               (logit "Something funky is cooking.")
               (disconnect-client res existing-client))
  