# 
# 
# patch "database.ml"
#  from [450047b3d2042b15cb627188f47bc09547b1c6af]
#    to [2575ef442d509845d4de8bd77fd4dac357edf3fd]
# 
============================================================
--- database.ml	450047b3d2042b15cb627188f47bc09547b1c6af
+++ database.ml	2575ef442d509845d4de8bd77fd4dac357edf3fd
@@ -141,7 +141,7 @@ let fetch_children db = 
       init
       stmt
 
-let collect_tags db base64 g =
+let collect_tags db base64 view g =
   Sqlite3.fetch_f db
     (fun () row ->
       let id = row.(0) in
@@ -150,7 +150,7 @@ let collect_tags db base64 g =
       n.kind <- TAGGED tag)
     ()
     "SELECT C.id, C.value FROM revision_certs AS C, %s AS D WHERE name = 'tag' AND C.id = D.id"
-    view_name_limit
+    view
 
 
 let ensure_node g id k =
@@ -237,7 +237,7 @@ let fetch_agraph_with_view db base64 (qu
   find_merge_nodes agraph ;
 
   (* get tags *)
-  collect_tags db base64 agraph ;
+  collect_tags db base64 view_name_limit agraph ;
 
   (* determine the branching edges *)
   let agraph =