diff --git a/lib/helm.hoon b/lib/helm.hoon
index 20a51b8ec7..ad8bac65ac 100644
--- a/lib/helm.hoon
+++ b/lib/helm.hoon
@@ -43,7 +43,7 @@
 ::                                                      ::  ::
 ::::                                                    ::  ::
   ::                                                    ::  ::
-|=  {bowl:gall helm-part}                              ::  main helm work
+|=  {bowl:gall helm-part}                               ::  main helm work
 =+  sez=(fall (~(get by hoc) ost) *helm-session)
 =>  |%                                                  ::  arvo structures
     ++  card                                            ::
@@ -54,7 +54,7 @@
           {$nuke wire ship}                             ::
           {$serv wire ?(desk beam)}                     ::
           {$poke wire dock pear}                        ::
-          {$wont wire sock path *}                      ::  send message
+          {$want wire sock path *}                      ::  send message
       ==                                                ::
     ++  move  (pair bone card)                          ::  user-level move
     ++  pear                                            ::  poke fruit
@@ -77,10 +77,11 @@
 ++  poke-begin                                        ::  make/send keypair
   |=  hood-begin  =<  abet
   ?>  ?=($~ bur)
+  ~&  [%poke-begin our his]
   =+  buz=(shaz :(mix (jam ges) eny))
   =+  loy=(pit:nu:crub:crypto 512 buz)
   %-  emit(bur `[his [0 sec:ex:loy]~])
-  [%wont /helm/ticket [our (sein:title his)] /a/ta his tic ges pub:ex:loy]
+  [%want /helm/ticket [our (sein:title his)] /a/ta his tic ges pub:ex:loy]
 ::
 ++  poke-spawn
   |=  {him/ship key/@pG}  =<  abet
diff --git a/sys/vane/ames.hoon b/sys/vane/ames.hoon
index 36734d04dc..bea9426924 100644
--- a/sys/vane/ames.hoon
+++ b/sys/vane/ames.hoon
@@ -1142,7 +1142,7 @@
         ++  cook                                        ::    cook:ho:um:am
           |=  {cop/coop cha/path ram/(unit {ryn/lane dam/flap})}
           ^-  {gud/? con/_+>}                        ::  acknowledgment
-          ::  ~&  [%cook cop num cha ram]
+          ::  ~&  [%ames-cook cop cha ram]
           =+  rum=(need (~(get by raz.bah) cha))
           =+  lat=(~(get by mis.rum) did.rum)
           ?:  &(?=($~ lat) ?=($~ ram))
@@ -1163,6 +1163,7 @@
         ++  done                                        ::    done:ho:um:am
           |=  {cha/path num/@ud}                        ::  complete outgoing
           ^-  {(unit duct) _+>}
+          ::  ~&  [%ames-done cha num]
           =+  rol=(need (~(get by ryl.bah) cha))
           =+  rix=(~(get by san.rol) num)
           ?~  rix  [~ +>.$]
@@ -1374,7 +1375,7 @@
                   ==
               ==
             +>.$
-          (wool [/a/ping hen] /q/pi ~ |)
+          (wool [/a/ping hen] /a/pi ~ |)
         ::
         ++  thaw                                        ::    thaw:ho:um:am
           ^+  .                                         ::  wakeup bomb
@@ -1638,6 +1639,7 @@
         $mack  ?~  +>.sih  $(sih [%g %nice ~])          ::  XX using old code
                $(sih [%g %mean `[%mack +>+.sih]])
         $unto  [~ +>]
+        $woot  [~ +>]
         ?($mean $nice)                                  ::  XX obsolete
       ?:  ?=({$ye $~} tea)
         [~ +>.$]
@@ -1664,6 +1666,9 @@
     ?:  ?=($crud -.kyz)
       [[[hen [%slip %d %flog kyz]] ~] +>]
     ?:  ?=($west -.kyz)
+      ?:  ?=({$pi $~} q.kyz)
+        :_  +>.$
+        [[hen %give %mack ~] ~]
       ?>  ?=({$ta $~} q.kyz)
       =+  gox=((hard {p/@p q/@pG r/gens s/pass}) r.kyz)
       =+  gus=(need (~(us go ton.fox) p.p.kyz))
diff --git a/sys/zuse.hoon b/sys/zuse.hoon
index af16b0ae3c..a1efdc8f7a 100644
--- a/sys/zuse.hoon
+++ b/sys/zuse.hoon
@@ -93,7 +93,7 @@
 ++  ames  ^?
   |%
   ::                                                    ::
-  ::::                  ++able:behn                     ::  (1a1) arvo moves
+  ::::                  ++able:ames                     ::  (1a1) arvo moves
     ::                                                  ::::
   ++  able  ^?
     |%
@@ -114,6 +114,7 @@
     ++  gift                                            ::  out result <-$
       $%  {$hear p/lane q/@}                            ::  receive packet
           {$init p/@p}                                  ::  report install
+          {$mack p/(unit tang)}                         ::  
           {$mass p/mass}                                ::  memory usage
           {$send p/lane q/@}                            ::  transmit packet
           {$woot p/ship q/coop}                         ::  reaction message
@@ -127,6 +128,7 @@
           $:  @tas                                      ::
       $%  {$crud p/@tas q/(list tank)}                  ::  by any
           {$mack p/(unit tang)}                         ::  message ack
+          {$woot p/ship q/coop}                         ::  reaction message
       ==  ==  ==                                        ::
     ++  task                                            ::  in request ->$
       $%  {$barn $~}                                    ::  new unix process
@@ -4334,7 +4336,7 @@
       $king  (end 3 1 who)
       $duke  (end 4 1 who)
       $earl  (end 5 1 who)
-      $pawn  (end 4 1 who)
+      $pawn  ~zod
     ==
   ::                                                    ::  ++team:title
   ++  team                                              ::  our / our moon