diff --git a/plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f b/plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f
index 0a5d287e..96d770eb 100644
--- a/plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f
+++ b/plugins/Full_CI_ZMQ/pt2_stoch_routines.irp.f
@@ -295,8 +295,8 @@ integer function pt2_find(v, w, sze, imin, imax)
     end if
   end do
   !DIR$ LOOP COUNT (64)
-  do pt2_find=l,min(l+block,h)
-    if(w(pt2_find+1) > v) then
+  do pt2_find=l,h
+    if(w(pt2_find) >= v) then
       exit
     end if
   end do