From 71a9658e6d249789563db6c9654362728a444eb1 Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Wed, 21 Oct 2015 15:02:00 -0700
Subject: [PATCH] clarify ford slam error

---
 arvo/ford.hoon | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/arvo/ford.hoon b/arvo/ford.hoon
index 83a1b75940..db1d094b73 100644
--- a/arvo/ford.hoon
+++ b/arvo/ford.hoon
@@ -1430,8 +1430,8 @@
       ^-  (bolt type)
       %+  (clef %slit)  (fine cof gat sam)
       |=  [cof=cafe gat=type sam=type]
-      %+  cool  |.(>sam<)
-      %+  cool  |.(>(~(peek ut gat) %free 6)<)
+      %+  cool  |.(%.(%have ~(dunk ut sam)))
+      %+  cool  |.(%.(%want ~(dunk ut (~(peek ut gat) %free 6))))
       =+  top=(mule |.((slit gat sam)))
       ?-  -.top
         |  (flaw cof p.top)