- result |= gedcom_write_record_str(hndl, REC_HEAD, NULL, NULL, NULL);
+ result |= gedcom_write_record_str(hndl, REC_HEAD, 0, NULL, NULL);
+ if (gom_header.charset.name)
+ result |= gedcom_write_element_str(hndl, ELT_HEAD_CHAR, 0,
+ REC_HEAD,
+ gom_header.charset.name);
+ if (gom_header.charset.version)
+ result |= gedcom_write_element_str(hndl, ELT_HEAD_CHAR_VERS, 0,
+ ELT_HEAD_CHAR,
+ gom_header.charset.version);