From f55ceadd90b085306d158f3a7e05c78a65f2ad22 Mon Sep 17 00:00:00 2001
From: Anton Dyudin <ohAitch@gmail.com>
Date: Fri, 15 Jul 2016 11:24:41 -0700
Subject: [PATCH] fix incremental fetching for stations already seen

---
 app/talk.hoon | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/app/talk.hoon b/app/talk.hoon
index 18875f0f7..0ed6f849b 100644
--- a/app/talk.hoon
+++ b/app/talk.hoon
@@ -1655,8 +1655,9 @@
       %+  turn  tal
       |=  tay/partner
       ^-  (list card)
-      :: =+  num=(fall (~(get by sequence) tay) 0) :: XX unused
-      =+  old=(sub now.hid ~d1)
+      =+  num=(~(get by sequence) tay)
+      =+  old=(sub now.hid ~d1)                         :: XX full backlog
+      =+  ini=?^(num (scot %ud u.num) (scot %da old))
       =/  typ
         =+  (ly ~[%a-group %f-grams %x-cabal])
         (rap 3 (turn - encode:peer-type))
@@ -1667,7 +1668,7 @@
             :*  %peer
                 /friend/show/[man]/(scot %p p.p.tay)/[q.p.tay]
                 [p.p.tay %talk] 
-                /[typ]/[q.p.tay]/(scot %da old)
+                /[typ]/[q.p.tay]/[ini]
             ==
       ==
     ::