diff --git a/base/modules/desc/psb_desc_mod.F90 b/base/modules/desc/psb_desc_mod.F90
index bf8f6c93c..f25cfe805 100644
--- a/base/modules/desc/psb_desc_mod.F90
+++ b/base/modules/desc/psb_desc_mod.F90
@@ -674,7 +674,7 @@ contains
     integer(psb_ipk_) :: info
 
     info = 0
-    if (psb_is_asb_desc(desc)) &
+    if (desc%is_asb()) &
          & call desc%indxmap%set_state(psb_desc_ovl_asb_)
 
   end subroutine psb_cd_set_ovl_asb