# Adds sub fields to a shared object
sub set_alwd_info {
    my ($self, $tag, $value) = @_;
    lock($self);
43: $self->{ALWD_INFO}{$tag} = shared_clone($value);
}