use current VP after encoding TLVs, not next one

diff --git a/src/protocols/radius/encode.c b/src/protocols/radius/encode.c
index f8bb7dd1a31b2c64a98ea80b1d2f945028c7a1a0..bcbf585df49510c98aae9d59e521771164531a33 100644 (file)
--- a/src/protocols/radius/encode.c
+++ b/src/protocols/radius/encode.c
@@ -271,7 +271,7 @@ static ssize_t encode_tlv_hdr_internal(fr_dbuff_t *dbuff,
                        slen = encode_tlv_hdr_internal(&FR_DBUFF_MAX(&work_dbuff, 253), da_stack, depth, &child_cursor, encode_ctx);
                        if (slen <= 0) return slen;
 
-                       vp = fr_dcursor_next(cursor);
+                       vp = fr_dcursor_current(cursor);
                        fr_proto_da_stack_build(da_stack, vp ? vp->da : NULL);
 
                } else if (da_stack->da[depth + 1]->type == FR_TYPE_TLV) {