diff --git a/arvo/eyre.hoon b/arvo/eyre.hoon
index e83d93172..f667843fa 100644
--- a/arvo/eyre.hoon
+++ b/arvo/eyre.hoon
@@ -1194,7 +1194,7 @@
       ::
           %poll
         ?:  ?=([~ %js] p.pok)  ::  XX treat non-json cases?
-          =+  polling-url=['/' (apex:earn %| pok(u.p %json) quy)]
+          =+  polling-url=(apex:earn %| pok(u.p %json) quy)
           [%& %js (add-json (joba %wurl (jape polling-url)) poll:js)]
         =.  lyv  (~(put by lyv) hen %wasp p.hem)
         |-
diff --git a/arvo/zuse.hoon b/arvo/zuse.hoon
index cb36da7e9..c1d4900dc 100644
--- a/arvo/zuse.hoon
+++ b/arvo/zuse.hoon
@@ -1255,10 +1255,10 @@
   =<  |=(pul=purl `tape`(apex ~ pul))
   |%
   ++  apex
-    |=  qur=quri
+    |=  qur=quri  ^-  tape
     ?-  -.qur
-      %&  (weld (head p.p.qur) `tape`['/' $(qur [%| +.p.qur])])
-      %|  (weld (body p.qur) (tail q.qur))
+      %&  (weld (head p.p.qur) $(qur [%| +.p.qur]))
+      %|  ['/' (weld (body p.qur) (tail q.qur))]
     ==
   ::
   ++  body
@@ -1283,7 +1283,7 @@
            ?~(rit ~ (weld (trip i.rit) ?~(t.rit "" `tape`['.' $(rit t.rit)])))
       ==
     ::
-      ?~(q.har ~ `tape`[':' (trip (rsh 3 2 (scot %ui u.q.har)))])
+      ?~(q.har ~ `tape`[':' ((d-co:co 1) u.q.har)])
     ==
   ::
   ++  tail