diff --git a/compiler/minils/transformations/callgraph.ml b/compiler/minils/transformations/callgraph.ml
index db1f952..465143c 100644
--- a/compiler/minils/transformations/callgraph.ml
+++ b/compiler/minils/transformations/callgraph.ml
@@ -199,7 +199,7 @@ struct
 				    List.fold_left (fun pds n -> Pnode n :: pds) acc nds
 				| _ -> pd :: acc
 			in
-      { p with p_desc = List.fold_right program_desc [] p.p_desc }
+      { p with p_desc = List.fold_right program_desc p.p_desc [] }
   end
 
 end