diff --git a/.travis/pin-parent-pill-pier.url b/.travis/pin-parent-pill-pier.url
index b20d9963e..013a9183c 100644
--- a/.travis/pin-parent-pill-pier.url
+++ b/.travis/pin-parent-pill-pier.url
@@ -1 +1 @@
-https://ci-piers.urbit.org/zod-ccaffc55e6cd2f244e6fd1710479c05e1019c167.tgz
+https://ci-piers.urbit.org/zod-807652e1ab88dd7e7edc7ca8593a2ba4fb1f8919.tgz
diff --git a/app/talk.hoon b/app/talk.hoon
index d6553ce88..b285173b7 100644
--- a/app/talk.hoon
+++ b/app/talk.hoon
@@ -2356,10 +2356,9 @@
         ?:  &(?=(^ pre) p.u.pre)  q.u.pre
         ?:  pat.sep  " "
         =-  (weld - q:(fall pre [p=| q=" "]))
-        %~  ar-glyf  ar
-          ?:  =(who self)  aud
-          (~(del in aud) [who %inbox])
-        ==
+        %#  ar-glyf  ar
+        ?:  =(who self)  aud
+        (~(del in aud) [who %inbox])
       =/  lis/(list tape)
         %+  simple-wrap
           `tape``(list @)`(tuba (trip msg.sep))
diff --git a/sys/hoon.hoon b/sys/hoon.hoon
index 0352ef9f1..b319f2fee 100644
--- a/sys/hoon.hoon
+++ b/sys/hoon.hoon
@@ -9806,10 +9806,9 @@
       ~>(%mean.[%leaf "rest-loop"] !!)
     =>  .(fan (~(gas in fan) leg))
     %-  fork
-    %~  tap  in
-      %-  ~(gas in *(set type))
-      (turn leg |=({p/type q/hoon} (play(sut p) q)))
-    ==
+    %#  tap  in
+    %-  ~(gas in *(set type))
+    (turn leg |=({p/type q/hoon} (play(sut p) q)))
   ::
   ++  take
     |=  {vit/vein duz/tyro}
@@ -10276,11 +10275,10 @@
       :_  q.doy
       :_  p.doy
       %^  cat  3
-        %~  rent  co
-            :+  %$  %ud
-            %-  ~(rep by (~(run by q.s.q.sut) |=(tomb ~(wyt by q))))
-            |=([[@ a=@u] b=@u] (add a b))
-        ==
+        %#  rent  co
+        :+  %$  %ud
+        %-  ~(rep by (~(run by q.s.q.sut) |=(tomb ~(wyt by q))))
+        |=([[@ a=@u] b=@u] (add a b))
       %^  cat  3
         ?-(p.q.sut $gold '.', $iron '|', $lead '?', $zinc '&')
       =+  gum=(mug q.s.q.sut)
@@ -11973,7 +11971,7 @@
                     ['+' (rune lus %cnls expc)]
                     ['-' (rune hep %cnhp expk)]
                     [':' (rune col %cnhp expi)]
-                    ['~' (rune sig %cnsg expu)]
+                    ['~' (rune sig %cnsg expn)]
                     ['#' (rune hax %cnsg expn)]
                     ['*' (rune tar %cntr expm)]
                     ['=' (rune tis %cnts exph)]
@@ -12279,7 +12277,6 @@
     ++  expr  |.(;~(gunk loaf wisp))                    ::  hoon and core tail
     ++  exps  |.((butt hank))                           ::  closed gapped hoons
     ++  expt  |.(;~(gunk wise rope loaf loaf))          ::  =^
-    ++  expu  |.(;~(gunk rope loaf (butt hank)))        ::  wing, hoon, hoons
     ++  expv  |.((butt rick))                           ::  just changes
     ++  expw  |.(;~(gunk rope loaf loaf loaf))          ::  wing and three hoons
     ++  expx  |.  ;~  gunk  loaf                        ::  hoon and core tail
diff --git a/sys/vane/clay.hoon b/sys/vane/clay.hoon
index c4d4aeaac..c6f7189fc 100644
--- a/sys/vane/clay.hoon
+++ b/sys/vane/clay.hoon
@@ -2276,11 +2276,10 @@
       ?:  |(?=($~ for) (may-read u.for %z yon pax))  ~
       %-  malt
       %+  skim
-        %~  tap  by
-          =<  q
-          %-  aeon-to-yaki
-          yon
-        ==
+        %#  tap  by
+        =<  q
+        %-  aeon-to-yaki
+        yon
       |=  {p/path q/lobe}
       ?|  ?=($~ pax)
           ?&  !?=($~ p)
@@ -3002,12 +3001,11 @@
               ~
             `[pax ~]
           =+  ^=  bof
-              %-  %~  int  by
-                    %-  ~(uni by `(map path *)`new.dal.dat)
-                    %-  ~(uni by `(map path *)`cal.dal.dat)
-                    %-  ~(uni by `(map path *)`can.dal.dat)
-                    `(map path *)`old.dal.dat
-                  ==
+              %-  %#  int  by
+                  %-  ~(uni by `(map path *)`new.dal.dat)
+                  %-  ~(uni by `(map path *)`cal.dal.dat)
+                  %-  ~(uni by `(map path *)`can.dal.dat)
+                  `(map path *)`old.dal.dat
               %-  ~(uni by `(map path *)`new.dob.dat)
               %-  ~(uni by `(map path *)`cal.dob.dat)
               %-  ~(uni by `(map path *)`can.dob.dat)
@@ -3343,12 +3341,11 @@
         =.  erg.dat  %-  ~(uni by del)
                      ^-  (map path ?)
                      %.  |=(lobe %&)
-                     %~  run  by
-                       %-  ~(uni by new.dal.dat)
-                       %-  ~(uni by cal.dal.dat)
-                       %-  ~(uni by cas)
-                       hot
-                     ==
+                     %#  run  by
+                     %-  ~(uni by new.dal.dat)
+                     %-  ~(uni by cal.dal.dat)
+                     %-  ~(uni by cas)
+                     hot
         checkout
       ::
       ::  Convert new commit into actual data (i.e. blobs rather than lobes).
diff --git a/sys/vane/dill.hoon b/sys/vane/dill.hoon
index 4c68ae188..72ed2a1ef 100644
--- a/sys/vane/dill.hoon
+++ b/sys/vane/dill.hoon
@@ -454,14 +454,14 @@
       ?.  ?=($flow -.kyz)  ~
       %-  some
       %.  q.kyz
-      %~  into  as
-          :-  [~ hen u.ore.all]
-          :*  p.kyz
-              [~ ~]
-              80
-              0
-              (tuba "<awaiting {(trip p.kyz)}, this may take a few minutes>")
-      ==  ==
+      %#  into  as
+      :-  [~ hen u.ore.all]
+      :*  p.kyz
+          [~ ~]
+          80
+          0
+          (tuba "<awaiting {(trip p.kyz)}, this may take a few minutes>")
+      ==
     --
 |%                                                      ::  poke+peek pattern
 ++  call                                                ::  handle request
diff --git a/sys/zuse.hoon b/sys/zuse.hoon
index e292f51ca..c2d019057 100644
--- a/sys/zuse.hoon
+++ b/sys/zuse.hoon
@@ -4182,11 +4182,11 @@
       (weld (trip -.man) `tape`[':' (trip +.man)])
     ::                                                  ::  ++clot:en-xml:html
     ++  clot  ~+                                        ::  self-closing tags
-      %~  has  in
-          %-  silt  ^-  (list term)  :~
-            %area  %base  %br  %col  %command  %embed  %hr  %img  %inputt
-            %keygen  %link  %meta  %param     %source   %track  %wbr
-      ==  ==
+      %#  has  in
+      %-  silt  ^-  (list term)  :~
+        %area  %base  %br  %col  %command  %embed  %hr  %img  %inputt
+        %keygen  %link  %meta  %param     %source   %track  %wbr
+      ==
     --  ::en-xml
   ::                                                    ::  ++de-xml:html
   ++  de-xml                                            ::  xml parser