   to_buffer : () ->
     inner = @_v_to_buffer()
     Buffer.concat [
-      encode_length(inner.length),
+      encode_length(inner.length + 1),
       uint_to_buffer(8, @type),
       inner
     ]


#------------

class SigExpirationTime extends Time
  constructor : (t) ->
    super S.expiration_time, t
  @parse : (slice) -> Time.parse slice, SigExpirationTime

#------------


    hashed_subpacket_count = @slice.read_uint16()
    end = @slice.i + hashed_subpacket_count
    o.sig_data = @slice.peek_to_buffer hashed_subpacket_count
    console.log o.sig_data.toString 'hex'
    o.hashed_subpackets = (@parse_subpacket() while @slice.i < end)
    unhashed_subpacket_count = @slice.read_uint16()
    end = @slice.i + unhashed_subpacket_count
