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:   (gethash ws-client (slot-value chat-server 'clients)))
  
  (defun client-character-name (client)
    (when-let ((character-id (client-entity-id client)))
      (character-name character-id)))
  
  (defun actor-client (actor-id)
    (maphash-values (lambda (client)
                      (when (eql actor-id (client-entity-id client))
                        (return-from actor-client client)))
                    (slot-value *websocket-server* 'clients))
    nil)
  