method private params_for_tag tag =
      let param_tag = C.string
          ~f: (fun s -> tag.tag <- s)
          Rep_messages.tag tag.tag
      in
      let param_atts = tag_attributes_param tag in
      [param_tag ; param_atts]