diff --git a/arvo/ford.hoon b/arvo/ford.hoon
index 5cff17b17..196fa8122 100644
--- a/arvo/ford.hoon
+++ b/arvo/ford.hoon
@@ -37,7 +37,7 @@
               [%dub p=term q=horn]                      ::  /=  apply face
               [%fan p=(list horn)]                      ::  /.  list
               [%for p=path q=horn]                      ::  /,  descend
-              [%hel p=horn]                             ::  /%  propogate heel
+              [%hel p=@ud q=horn]                       ::  /%  propogate heel
               [%hub p=horn]                             ::  /@  list by @ud
               [%man p=(map span horn)]                  ::  /*  hetero map
               [%nap p=horn]                             ::  /_  homo map
@@ -519,7 +519,7 @@
               (stag %dub ;~(pfix tis dub:read))
               (stag %fan ;~(pfix dot fan:read))
               (stag %for ;~(pfix com for:read))
-              (stag %hel ;~(pfix cen day:read))
+              (stag %hel ;~(pfix cen hel:read))
               (stag %hub ;~(pfix pat day:read))
               (stag %man ;~(pfix tar man:read))
               (stag %nap ;~(pfix cab day:read))
@@ -559,6 +559,11 @@
                 %+  rail
                   ;~(plug (ifix [sel ser] hath) apex(tol |))
                 ;~(pfix gap ;~(plug hath ;~(pfix gap apex)))
+          ::
+              ++  hel
+                %+  rail
+                  ;~(plug ;~(pose ;~(sfix dem:ag cen) (easy 0)) apex(tol |))
+                ;~(pfix gap ;~(plug ;~(pose ;~(sfix dem:ag gap) (easy 0)) apex))
           ::
               ++  man
                 %+  rail  fail
@@ -1049,7 +1054,7 @@
         |-  ^-  vase
         ?~  doy  [[%cube 0 [%atom %n]] 0]
         %+  slop
-          (slop [[%atom %a] p.n.doy] q.n.doy)
+          (slop [[%atom %ta] p.n.doy] q.n.doy)
         (slop $(doy l.doy) $(doy r.doy))
       ::
       ++  chap                                          ::  produce resources
@@ -1084,7 +1089,12 @@
           (slop i.tev $(tev t.tev))
         ::
             %for  $(hon q.hon, s.how (weld (flop p.hon) s.how))
-            %hel  $(hon p.hon, arg /, s.how (weld arg s.how))
+            %hel    
+          %=  $  
+            hon    q.hon
+            arg    (scag p.hon arg)
+            s.how  (weld (slag p.hon arg) s.how)
+          ==
             %hub  (chad cof bax %ud p.hon)
             %man
           |-  ^-  (bolt vase)