diff --git a/Redaction/Clean.xba b/Redaction/Clean.xba
index 919e218..dab2f94 100644
--- a/Redaction/Clean.xba
+++ b/Redaction/Clean.xba
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
-<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark80
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark81
 
 End Sub
 
@@ -1963,7 +1963,7 @@ Sub resetChapterNumberingRules
 		    numRuleProperty.Value = &quot;&quot;
 		  End If
 		  If (numRuleProperty.Name = &quot;CharStyleName&quot;) Then
-		    numRuleProperty.Value = &quot;None&quot;
+		    numRuleProperty.Value = &quot;Standard&quot;
 		  End If
 		  numRulesProps(n) = numRuleProperty
 		Next n