diff --git a/compiler/utilities/global/dep.ml b/compiler/utilities/global/dep.ml
index 0b3715f..b43cdd4 100644
--- a/compiler/utilities/global/dep.ml
+++ b/compiler/utilities/global/dep.ml
@@ -70,7 +70,7 @@ struct
             let names = Read.read (containt node) in
             List.iter (attach names_to_graph node) names;
             let reads = Misc.list_diff names (Read.linear_read (containt node)) in
-            List.iter (attach lin_map node) names;
+            List.iter (attach lin_map node) reads;
             make_graph g_list names_to_graph lin_map
     in