diff --git a/crates/io/src/dxf_write.rs b/crates/io/src/dxf_write.rs
--- a/crates/io/src/dxf_write.rs
+++ b/crates/io/src/dxf_write.rs
@@ -267,6 +267,7 @@ const HEADER_VARS: &[(&str, i32)] = &[
     ("CMLJUST", 70),
     ("CMLSCALE", 40),
     ("TEXTSTYLE", 7),
+    ("CTABLESTYLE", 7),
     ("CLAYER", 8),
     ("CELTYPE", 6),
     ("CECOLOR", 62),
diff --git a/crates/io/tests/it/tables_objects_roundtrip.rs b/crates/io/tests/it/tables_objects_roundtrip.rs
--- a/crates/io/tests/it/tables_objects_roundtrip.rs
+++ b/crates/io/tests/it/tables_objects_roundtrip.rs
@@ -2,7 +2,9 @@
 //! multileader styles, layout page setups, named views, UCSs and groups.
 
 use cadcraft_doc::geom::{Vec2, Vec3};
-use cadcraft_doc::{Common, DashElement, Drawing, EntityKind, Group, Line, Linetype, MLeaderStyle, NamedView, Space, TextStyle, Ucs, library};
+use cadcraft_doc::{
+    Common, DashElement, Drawing, EntityKind, Group, Line, Linetype, MLeaderStyle, NamedView, Space, TableStyle, TextStyle, Ucs, library,
+};
 use cadcraft_io::{read_dxf, write_dxf};
 
 fn round_trip(d: &Drawing) -> Drawing {
@@ -82,6 +84,15 @@ fn multileader_styles_and_current_style_round_trip() {
     assert_eq!(r.header.str("CMLEADERSTYLE", ""), "Callout");
 }
 
+#[test]
+fn current_table_style_round_trips() {
+    let mut d = Drawing::new_imperial();
+    d.table_styles.push(TableStyle { name: "TS".into(), ..TableStyle::default() });
+    d.header.set_str("CTABLESTYLE", "TS");
+    let r = round_trip(&d);
+    assert_eq!(r.header.str("CTABLESTYLE", ""), "TS");
+}
+
 #[test]
 fn layout_page_setup_and_paper_view_round_trip() {
     let mut d = Drawing::new_imperial();