diff --git a/code/batch.f b/code/batch.f
index efc37953..d932f28c 100644
--- a/code/batch.f
+++ b/code/batch.f
@@ -13,7 +13,7 @@ subroutine breduce(a,n,m)
       if (m.gt.lbat) m = lbat
       i=1
 
-      do while (i.lt.n)
+      do while (i.le.n)
          call gop(a(i),w,'+  ',1,min(m,n-i+1))
          i=i+m
       enddo