diff --git a/sys/hoon.hoon b/sys/hoon.hoon
index 12e7a00c03..bd86fc77c8 100644
--- a/sys/hoon.hoon
+++ b/sys/hoon.hoon
@@ -787,10 +787,11 @@
   =>  .(a ^.(homo a))
   |-  ^+  a
   ?~  a  ~
+  =+  s=(skid t.a |:(c=i.a (b c i.a)))
   %+  weld
-    $(a (skim t.a |:(c=i.a (b c i.a))))
+    $(a p.s)
   ^+  t.a
-  [i.a $(a (skim t.a |:(c=i.a !(b c i.a))))]
+  [i.a $(a q.s)]
 ::
 ++  spin                                                ::  stateful turn
   ::