diff --git a/base/internals/psi_dl_check.f90 b/base/internals/psi_dl_check.f90
index 257c8e65..171c9cf5 100644
--- a/base/internals/psi_dl_check.f90
+++ b/base/internals/psi_dl_check.f90
@@ -65,7 +65,7 @@ subroutine psi_dl_check(dep_list,dl_lda,np,length_dl)
     outer: do 
       if (i >length_dl(proc)) exit outer
       proc2=dep_list(i,proc)
-      if (proc2.ne.psb_no_comm_) then
+      if (proc2.ne.-1) then
         ! ...search proc in proc2's dep_list....
         j=1
         p2loop:do