anchor.diff:  	     (define-ajax lobby/session ()
   	       (setf *session* res)
   	       (when (@ res current-table)
  -		 (setf *current-table-id* (@ res current-table :id))
  +		 (setf *current-table-id* (@ res current-table :id)
  +		       *current-table-tag* (@ res current-table :tag))
   		 (show-table "body")		  
   		 (my-hand)
   		 (render-board (@ res current-table))))
  
positive.code: 			 (when (< player-count max-players) (render-table-entry elem)))))
  	       (lobby/session))
  	     
  	     (define-ajax rename (new-tag))
  	     
  	     (define-ajax lobby/new-table (tag passphrase)
  	       (log "STARTING TABLE" res)
  	       (setf *current-table-id* (@ res :id))
  	       (show-table "body")
  	       (my-hand)
  	       (render-board res))
  
  	     (define-ajax lobby/join-table (table passphrase)
  	       (log "JOINING TABLE" res)
  	       (setf *current-table-id* (@ res :id))
  	       (show-table "body")		  
  	       (my-hand)
  	       (render-board res))
  
negative.code: 		(:div :id "board")
  		(:div :id "player-info" :class "moveable"
  		      (:h3 (:span :class "game-id" *current-table-id*)
  			   (:span :class "game-tag" *current-table-tag*))
  		      (:div :class "control-row"
  			    (:span :class "player-id" (@ *session* id))
  			    (:span :class "player-tag" (@ *session* tag)))
  