Various fixes.

main/app/dojo/core.hook

@@ -605,14 +605,18 @@
   ++  he-stir                                           ::  apply change
     |=  cal=console-change
     ^+  +>
+    ::  ~&  [%his-clock ler.cal]
+    ::  ~&  [%our-clock ven.say]
     =^  dat  say  (~(transceive cs say) cal)
     ?.  ?&  ?=(%del -.dat)
-            =(+(p.dat) (lent buf.say))
+            ::  =(+(p.dat) (lent buf.say))
         ==
       +>.$
     =+  foy=(he-dope (tufa buf.say))
     ?:  ?=(%& -.foy)  +>.$
+    ::  ~&  [%bad-change dat ted.cal]
     =^  lic  say  (~(transmit cs say) dat)
+    ::  ~&  [%our-leg leg.say]
     (he-rush %mor [%det lic] [%err q.p.foy] ~)
   ::
   ++  he-plan                                           ::  execute command

main/app/talk/core.hook

@@ -595,7 +595,7 @@
 ++  peer
   |=  [ost=bone you=ship pax=path]
   ^-  [(list move) _+>]
-  ~?  !=(you our.hid)  [%talk-peer ost her pax]
+  ~?  !=(you our.hid)  [%talk-peer ost you pax]
   :_  +>  :_  ~
   :*  ost
       %give

main/lib/console/core.hook

@@ -73,7 +73,7 @@
   ++  commit                                            ::  local change
     |=  ted=console-edit
     ^-  console-share
-    abet:(apply(own.ven +(own.ven)) ted)
+    abet:(apply(own.ven +(own.ven), leg [ted leg]) ted)
   ::
   ::::
   ::  ++inverse: inverse of change in context.
@@ -106,7 +106,9 @@
     ?>  &(=(his.ler his.ven) (lte own.ler own.ven))
     ?>  |(!=(own.ler own.ven) =(haw (sham buf)))
     =.  leg  (scag (sub own.ven own.ler) leg)
+    ::  ~?  !=(own.ler own.ven)  [%miss-leg leg]
     =+  dat=(transmute [%mor leg] ted)
+    ::  ~?  !=(~ leg)  [%transmute from/ted to/dat ~]
     [dat abet:(apply(his.ven +(his.ven)) dat)]
   ::
   ++  remit                                             ::  conditional accept