diff --git a/base/tools/psb_cd_renum_block.F90 b/base/tools/psb_cd_renum_block.F90
index 3bd4971c..cc04de00 100644
--- a/base/tools/psb_cd_renum_block.F90
+++ b/base/tools/psb_cd_renum_block.F90
@@ -81,7 +81,7 @@ subroutine psb_cd_renum_block(desc_in, desc_out, info)
   if (desc_in%is_ovl()) then
     write(0,*) 'Warning: descriptor with overlap, not going to clone into BLOCK'
   else
-    select type (desc_in%indxmap)
+    select type (idmapin => desc_in%indxmap)
       class is (psb_gen_block_map)
         call psb_erractionrestore(err_act)
         return