diff --git a/base/tools/psb_dsphalo.F90 b/base/tools/psb_dsphalo.F90
index ae984c05..4d8602bf 100644
--- a/base/tools/psb_dsphalo.F90
+++ b/base/tools/psb_dsphalo.F90
@@ -119,7 +119,7 @@ Subroutine psb_dsphalo(a,desc_a,blk,info,rwcnv,clcnv,cliprow,outfmt,data)
   endif
 
   ictxt = psb_cd_get_context(desc_a)
-  icomm = psb_get_mpic(desc_a)
+  icomm = psb_cd_get_mpic(desc_a)
 
   Call psb_info(ictxt, me, np)
 
diff --git a/base/tools/psb_zsphalo.F90 b/base/tools/psb_zsphalo.F90
index 4a3c7c84..62183ad8 100644
--- a/base/tools/psb_zsphalo.F90
+++ b/base/tools/psb_zsphalo.F90
@@ -119,7 +119,7 @@ Subroutine psb_zsphalo(a,desc_a,blk,info,rwcnv,clcnv,cliprow,outfmt,data)
   endif
 
   ictxt = psb_cd_get_context(desc_a)
-  icomm = psb_get_mpic(desc_a)
+  icomm = psb_cd_get_mpic(desc_a)
 
   Call psb_info(ictxt, me, np)