# 
# 
# patch "monotone.ml"
#  from [2287a8d5eba0e33d2c9744101b783c04269a04b4]
#    to [b795d056419d26139527e11d892e638e28f4124e]
# 
============================================================
--- monotone.ml	2287a8d5eba0e33d2c9744101b783c04269a04b4
+++ monotone.ml	b795d056419d26139527e11d892e638e28f4124e
@@ -56,11 +56,14 @@ let cert_of_stanza id st =
     c_signature = sig_verif (get_elem st "signature") ;
   }
 
-let certs mtn id =
+let raw_certs mtn id =
   Automate.submit_sync
     mtn [ "certs" ; id ]
     +> Lexing.from_string
     +> Basic_io_lexer.parse
+
+let certs mtn id = 
+  raw_certs mtn id
     +> List.map (cert_of_stanza id)
 
 let get_certs_and_revision mtn id =
@@ -68,6 +71,6 @@ let cert_value mtn id name =
     +> _get_revision mtn id
 
 let cert_value mtn id name =
+  raw_certs mtn id 
+    +> List.filter (fun st -> get_elem st "name" = name)
+    +> List.map (fun st -> get_elem st "value")
-  certs mtn id 
-    +> List.find_all (fun c -> c.c_name = name)
-    +> List.map (fun c -> c.c_value)