diff --git a/base/internals/psi_crea_index.f90 b/base/internals/psi_crea_index.f90
index 20c58bf8..ae3fd845 100644
--- a/base/internals/psi_crea_index.f90
+++ b/base/internals/psi_crea_index.f90
@@ -99,9 +99,6 @@ subroutine psi_crea_index(desc_a,index_in,index_out,nxch,nsnd,nrcv,info)
     goto 9999
   end if
 
-  if (debug_level >= psb_debug_inner_) &
-       & write(debug_unit,*) me,' ',trim(name),': from extract_dep_list',&
-       &     me,length_dl(0),index_in(1), ':',dep_list(:length_dl(me),me)
   ! ...now process root contains dependence list of all processes...
   if (debug_level >= psb_debug_inner_) &
        & write(debug_unit,*) me,' ',trim(name),': root sorting dep list'
diff --git a/base/internals/psi_dl_check.f90 b/base/internals/psi_dl_check.f90
index d20ac13e..a971b05a 100644
--- a/base/internals/psi_dl_check.f90
+++ b/base/internals/psi_dl_check.f90
@@ -79,7 +79,7 @@ subroutine psi_dl_check(dep_list,dl_lda,np,length_dl)
           ! ...add proc to proc2 s dep_list.....',proc,proc2
           length_dl(proc2)     = length_dl(proc2)+1
           if (length_dl(proc2) > size(dep_list,1)) then
-            write(psb_err_unit,*)'error in crea_halo', proc2,proc,&
+            write(psb_err_unit,*)'error in dl_check', proc2,proc,&
                  & length_dl(proc2),'>',size(dep_list,1)
           endif
           dep_list(length_dl(proc2),proc2) = proc