diff --git a/RSuite_Word-template.dotm b/RSuite_Word-template.dotm
index d0b7267..2b1ee30 100644
Binary files a/RSuite_Word-template.dotm and b/RSuite_Word-template.dotm differ
diff --git a/StyleTemplate_auto-generate/RSuite.dotx b/StyleTemplate_auto-generate/RSuite.dotx
index 810df8d..aacf979 100644
Binary files a/StyleTemplate_auto-generate/RSuite.dotx and b/StyleTemplate_auto-generate/RSuite.dotx differ
diff --git a/StyleTemplate_auto-generate/RSuite_NoColor.dotx b/StyleTemplate_auto-generate/RSuite_NoColor.dotx
index 3b371b1..86d1152 100644
Binary files a/StyleTemplate_auto-generate/RSuite_NoColor.dotx and b/StyleTemplate_auto-generate/RSuite_NoColor.dotx differ
diff --git a/src/RSuite_Word-template/CIPmacro.bas b/src/RSuite_Word-template/CIPmacro.bas
index 8d12c3f..0f5c839 100644
--- a/src/RSuite_Word-template/CIPmacro.bas
+++ b/src/RSuite_Word-template/CIPmacro.bas
@@ -55,7 +55,7 @@ Sub Main()
     tagRequiredArray = Array(tpRequired, cpRequired, spRequired, tocRequired)
 
     ' chapter tagging handled separately
-    chNamesArray = Array("Chapter", "Chapter 2")
+    chNamesArray = Array("Chapter", "Alt Chapter")
     chTag = "ch"
     ' these backmatter strings match names in "sectionFile".
     bmSectionArray = Array("About the Author", _
diff --git a/src/RSuite_Word-template/TestModule4_CIP.bas b/src/RSuite_Word-template/TestModule4_CIP.bas
index f312a36..5f2f1b4 100644
--- a/src/RSuite_Word-template/TestModule4_CIP.bas
+++ b/src/RSuite_Word-template/TestModule4_CIP.bas
@@ -46,7 +46,7 @@ Private Function SetVariables()
     tagDisplayNameArray = Array(tpDisplayName, cpDisplayName, spDisplayName, tocDisplayName)
     tagRequiredArray = Array(tpRequired, cpRequired, spRequired, tocRequired)
 
-    chNamesArray = Array("Chapter", "Chapter 2")
+    chNamesArray = Array("Chapter", "Alt Chapter")
     chTag = "ch"
     ' these backmatter strings match names in "sectionFile".
     bmSectionArray = Array("About the Author", _
@@ -58,7 +58,9 @@ Private Function SetVariables()
         "Bibliography", _
         "Conclusion", _
         "Excerpt Chapter", _
-        "Excerpt Opener")
+        "Excerpt Opener", _
+        "Illustration Credits", _
+        "Permissions")
 End Function
 
 Private Function DestroyResultStrings()
@@ -385,7 +387,7 @@ End Sub
 
 '@TestMethod("CIPtests")
 Private Sub TestRmParas() 'TODO Rename test
-    Dim tstStyleName As String, resultStr
+    Dim tstStyleName As String, resultstr
     Dim expectedRange As Range, testRange As Range
     Dim beforeDotxPath As String, afterDotxPath As String
     Dim beforeDoc As Document, afterDoc As Document
@@ -404,10 +406,10 @@ Private Sub TestRmParas() 'TODO Rename test
         ' for debug:
         'Set afterDoc = Application.Documents.Add(Template:=afterDotxPath)
         Set expectedRange = afterDoc.Range
-        resultStr = TestHelpers.compareRanges(testRange, expectedRange)
+        resultstr = TestHelpers.compareRanges(testRange, expectedRange)
     'Assert:
         Assert.Succeed
-        Assert.areequal "Same", resultStr
+        Assert.areequal "Same", resultstr
     'Cleanup:
         beforeDoc.Close savechanges:=wdDoNotSaveChanges
         afterDoc.Close savechanges:=wdDoNotSaveChanges
@@ -419,7 +421,7 @@ End Sub
 
 '@TestMethod("CIPtests")
 Private Sub TestChangeBreaks() 'TODO Rename test
-    Dim tstStyleName As String, resultStr
+    Dim tstStyleName As String, resultstr
     Dim expectedRange As Range, testRange As Range
     Dim beforeDotxPath As String, afterDotxPath As String
     Dim beforeDoc As Document, afterDoc As Document
@@ -437,10 +439,10 @@ Private Sub TestChangeBreaks() 'TODO Rename test
         ' for debug:
         'Set afterDoc = Application.Documents.Add(Template:=afterDotxPath)
         Set expectedRange = afterDoc.Range
-        resultStr = TestHelpers.compareRanges(testRange, expectedRange)
+        resultstr = TestHelpers.compareRanges(testRange, expectedRange)
     'Assert:
         Assert.Succeed
-        Assert.areequal "Same", resultStr
+        Assert.areequal "Same", resultstr
     'Cleanup:
         beforeDoc.Close savechanges:=wdDoNotSaveChanges
         afterDoc.Close savechanges:=wdDoNotSaveChanges
diff --git a/version.txt b/version.txt
index 124bfa2..306894a 100644
--- a/version.txt
+++ b/version.txt
@@ -1 +1 @@
-6.4
\ No newline at end of file
+6.4.1
\ No newline at end of file