GFS: Fix nextResultSetPosition for dropped record

diff --git a/src/seshigh.c b/src/seshigh.c
index bd1ec84..b9801ff 100644 (file)
--- a/src/seshigh.c
+++ b/src/seshigh.c
@@ -2518,6 +2518,8 @@ static Z_Records *pack_records(association *a, char *setname, Odr_int start,
             {
                 yaz_log(log_requestdetail, "  Dropped last normal-sized record");
                 *pres = Z_PresentStatus_partial_2;
             {
                 yaz_log(log_requestdetail, "  Dropped last normal-sized record");
                 *pres = Z_PresentStatus_partial_2;

+                if (*next > 0)
+                    (*next)--;

                 break;
             }
             /* record can only be fetched by itself */
                 break;
             }
             /* record can only be fetched by itself */