diff --git a/filter/Configuration_filter.mk b/filter/Configuration_filter.mk
index 269866bf5364..7102e276c09f 100644
--- a/filter/Configuration_filter.mk
+++ b/filter/Configuration_filter.mk
@@ -304,14 +304,17 @@ $(call filter_Configuration_add_types,fcfg_langpack,fcfg_writer_types.xcu,filter
writer_StarOffice_XML_Writer \
writer_WordPerfect_Document \
writer_MS_Works_Document \
+ writer_Beagle_Works \
writer_ClarisWorks \
writer_DocMaker \
writer_eDoc_Document \
writer_FullWrite_Professional \
+ writer_Great_Works \
writer_HanMac_Word_K \
writer_LightWayText \
writer_Mac_Word \
writer_Mac_Works \
+ writer_MacDoc \
writer_MacWrite \
writer_MacWritePro \
writer_Mariner_Write \
@@ -350,14 +353,17 @@ $(call filter_Configuration_add_filters,fcfg_langpack,fcfg_writer_filters.xcu,fi
StarOffice_XML__Writer_ \
WordPerfect \
MS_Works \
+ Beagle_Works \
ClarisWorks \
DocMaker \
eDoc_Document \
FullWrite_Professional \
+ Great_Works \
HanMac_Word_K \
LightWayText \
Mac_Word \
Mac_Works \
+ MacDoc \
MacWrite \
MacWritePro \
Mariner_Write \
diff --git a/filter/source/config/fragments/filters/Beagle_Works.xcu b/filter/source/config/fragments/filters/Beagle_Works.xcu
new file mode 100644
index 000000000000..f1cab85e99ad
--- /dev/null
+++ b/filter/source/config/fragments/filters/Beagle_Works.xcu
@@ -0,0 +1,29 @@
+
+
+
+
+ IMPORT ALIEN USESOPTIONS 3RDPARTYFILTER PREFERRED
+
+
+ com.sun.star.comp.Writer.MWAWImportFilter
+
+
+ Beagle Works Document
+
+
+ 0
+
+
+ writer_Beagle_Works
+
+
+ com.sun.star.text.TextDocument
+
+
diff --git a/filter/source/config/fragments/filters/Great_Works.xcu b/filter/source/config/fragments/filters/Great_Works.xcu
new file mode 100644
index 000000000000..609050408d37
--- /dev/null
+++ b/filter/source/config/fragments/filters/Great_Works.xcu
@@ -0,0 +1,29 @@
+
+
+
+
+ IMPORT ALIEN USESOPTIONS 3RDPARTYFILTER PREFERRED
+
+
+ com.sun.star.comp.Writer.MWAWImportFilter
+
+
+ Great Works Document
+
+
+ 0
+
+
+ writer_Great_Works
+
+
+ com.sun.star.text.TextDocument
+
+
diff --git a/filter/source/config/fragments/filters/MacDoc.xcu b/filter/source/config/fragments/filters/MacDoc.xcu
new file mode 100644
index 000000000000..70ce7d2c2ce3
--- /dev/null
+++ b/filter/source/config/fragments/filters/MacDoc.xcu
@@ -0,0 +1,29 @@
+
+
+
+
+ IMPORT ALIEN USESOPTIONS 3RDPARTYFILTER PREFERRED
+
+
+ com.sun.star.comp.Writer.MWAWImportFilter
+
+
+ MacDoc Document
+
+
+ 0
+
+
+ writer_MacDoc
+
+
+ com.sun.star.text.TextDocument
+
+
diff --git a/filter/source/config/fragments/types/writer_Beagle_Works.xcu b/filter/source/config/fragments/types/writer_Beagle_Works.xcu
new file mode 100644
index 000000000000..efe015d83c93
--- /dev/null
+++ b/filter/source/config/fragments/types/writer_Beagle_Works.xcu
@@ -0,0 +1,29 @@
+
+
+
+
+ com.sun.star.comp.Writer.MWAWImportFilter
+
+
+ hqx zip
+
+
+
+
+
+ true
+
+
+ Beagle Works
+
+
+ Beagle Works
+
+
diff --git a/filter/source/config/fragments/types/writer_Great_Works.xcu b/filter/source/config/fragments/types/writer_Great_Works.xcu
new file mode 100644
index 000000000000..ff3fda0af34d
--- /dev/null
+++ b/filter/source/config/fragments/types/writer_Great_Works.xcu
@@ -0,0 +1,29 @@
+
+
+
+
+ com.sun.star.comp.Writer.MWAWImportFilter
+
+
+ hqx zip
+
+
+
+
+
+ true
+
+
+ Great Works
+
+
+ Great Works
+
+
diff --git a/filter/source/config/fragments/types/writer_MacDoc.xcu b/filter/source/config/fragments/types/writer_MacDoc.xcu
new file mode 100644
index 000000000000..172215b6c701
--- /dev/null
+++ b/filter/source/config/fragments/types/writer_MacDoc.xcu
@@ -0,0 +1,29 @@
+
+
+
+
+ com.sun.star.comp.Writer.MWAWImportFilter
+
+
+ hqx zip
+
+
+
+
+
+ true
+
+
+ MacDoc
+
+
+ MacDoc
+
+
diff --git a/writerperfect/source/writer/MWAWImportFilter.cxx b/writerperfect/source/writer/MWAWImportFilter.cxx
index 11d6cd8dbbf1..7cfe4ab83b57 100644
--- a/writerperfect/source/writer/MWAWImportFilter.cxx
+++ b/writerperfect/source/writer/MWAWImportFilter.cxx
@@ -169,7 +169,7 @@ throw( com::sun::star::uno::RuntimeException )
sTypeName = "writer_HanMac_Word_K";
break;
case MWAWDocument::MWAW_T_HANMACWORDJ:
- // sTypeName = "writer_HanMac_Word_J";
+ sTypeName = "writer_HanMac_Word_J";
break;
case MWAWDocument::MWAW_T_LIGHTWAYTEXT:
sTypeName = "writer_LightWayText";