diff --git a/IDS/complete_IDS_CORSICA.m b/IDS/complete_IDS_CORSICA.m
index f988d4c392b7e2fe21c6db5a37560eb4cf895416..01993ee0254a183bc84eb3734df06bbaca2c2b33 100644
--- a/IDS/complete_IDS_CORSICA.m
+++ b/IDS/complete_IDS_CORSICA.m
@@ -19,7 +19,7 @@ G = liug(G,P);
 L = liuc(P,G);
 
 % Extract information from CORSICA IDS
-[LC,LXC,LYC] = liux_IDS_corsica(L, IDS);
+[LC,LXC,LYC] = LLXLY_IDS_corsica(L, IDS);
 
 %%  -------------------- ADD the missing information on the existing IDS CORSICA -----------------------