Fix savannah bug #63567

* src/buffer.c (short_read): Increase records_read only if a full
record has been read.

src/buffer.c

@@ -982,7 +982,8 @@ short_read (size_t status)
     }
 
   record_end = record_start + (record_size - left) / BLOCKSIZE;
-  records_read++;
+  if (left == 0)
+    records_read++;
 }
 
 /*  Flush the current buffer to/from the archive.  */