From efb31bd7f95a260653cacd2da452820575e19b7e Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Thu, 19 Feb 2015 19:55:18 -0800
Subject: [PATCH] Fixed ford ot anchor at current main revision, not time

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

diff --git a/arvo/ford.hoon b/arvo/ford.hoon
index 685a2d705..bb51f251a 100644
--- a/arvo/ford.hoon
+++ b/arvo/ford.hoon
@@ -494,7 +494,10 @@
       =+  ^=  bem  ^-  beam
           :_  pax
           ?:  &(=(p.bek our) =(q.bek %main))  bek
-          =+  oak=[our %main %da now]
+          =+  ren=(ska %cw (tope [our %main %da now] ~)) ::  XX at requested one
+          ?.  ?=([~ ~ @u] ren)
+            bek
+          =+  oak=[our %main %ud u.u.ren]
           ?:  ?=([~ ~ *] (ska %cy (tope [oak pax])))
             oak
           bek