Changed update $human.

app/talk-agent.hoon

@@ -1367,11 +1367,11 @@
           %+  turn  (reverse-folks u.nym)
           |=  p/ship
           [%txt "{<p>}: {<u.nym>}"]
-        %=  ..sh-work
+        %.  [%human u.her [true=~ hand=nym]]
+        %=  sh-update
           folks  ?~  u.nym
                    (~(del by folks) u.her)  ::x  unset nickname
                  (~(put by folks) u.her [true=~ hand=nym])  ::x  set nickname
-          ..sh-work  (sh-update %human [true=~ hand=nym])
         ==
       ::
       ++  wo-set                                        ::  %set

app/talk-guardian.hoon

@@ -330,9 +330,11 @@
         +>  ::x  no change.
       =.  folks
         ?~  hand.q.dup  (~(del by folks) p.dup)
-        (~(put by folks) her u.q.dup)
+        (~(put by folks) her q.dup)
       %+  ra-inform  %names
-      (~(put by *(map ship (unit human))) her q.dup)
+      ::TODO  think long and hard, do we need unit for delition or is a human
+      ::      with [~ ~] good enough? if the latter, agent's $names will change.
+      (~(put by *(map ship (unit human))) her ?~(hand.q.dup ~ q.dup))
     ::
     $bind                                               ::x  set glyph binding.
       %.  [%glyph nak]

sur/talk.hoon

@@ -12,7 +12,7 @@
   ==                                                    ::
 ++  update                                              ::  change shared state
   $%  {$status (pair (set knot) status)}                ::  our status update
-      {$human (pair ship (unit human))}                 ::  new identity
+      {$human (pair ship human)}                        ::  new identity
       {$bind (pair char (set partner))}                 ::  bind a glyph
   ==                                                    ::
 ++  cabal                                               ::  metaconfiguration