diff --git a/base/internals/psi_desc_impl.f90 b/base/internals/psi_desc_impl.f90
index d9f7064a..a6859678 100644
--- a/base/internals/psi_desc_impl.f90
+++ b/base/internals/psi_desc_impl.f90
@@ -31,7 +31,7 @@
 !
 
 subroutine psi_i_renum_index(iperm,idx,info)
-  use psi_mod, psi_protect_name =>  psi_renum_index
+  use psi_mod, psi_protect_name =>  psi_i_renum_index
   use psb_serial_mod
   implicit none