# 
# 
# patch "components.ml"
#  from [2a9aad74c71c57dd5d7459dd3d7b8340277e01bf]
#    to [af373f20ac4da249b6c277a6394c8ecabc1d37e6]
# 
============================================================
--- components.ml	2a9aad74c71c57dd5d7459dd3d7b8340277e01bf
+++ components.ml	af373f20ac4da249b6c277a6394c8ecabc1d37e6
@@ -9,12 +9,15 @@
 let all_children_neighbors g n =
   let rec proc acc = function
     | [] -> acc
-    | (_, PARENT)  :: tl -> proc acc tl
+    | (_, PARENT) :: tl -> proc acc tl
     | (id, CHILD) :: tl ->
-	let c = NodeMap.find id g in
-	if is_neighbor c
-	then proc (id :: acc) tl
-	else [] in
+	match
+	  try Some (is_neighbor (NodeMap.find id g))
+	  with Not_found -> None
+	with
+	| Some true  -> proc (id :: acc) tl
+	| Some false -> []
+	| None -> proc acc tl in
   proc [] n.family
 
 let get_neighbors_of_leaves g =