diff --git a/Redaction/Clean.xba b/Redaction/Clean.xba
index b7b8506..661b25b 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 mark77
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark78
 
 End Sub
 
@@ -60,6 +60,8 @@ End Sub
 
 Private Sub cleanAccordingTo(dialog As Object)
 	Dim statusIndicator as Object
+	Dim openTrackChanges As Boolean
+	openTrackChanges = false
 	dialog.setVisible(false)
 	saveDocument
 	statusIndicator = ThisComponent.getCurrentController.statusIndicator
@@ -117,10 +119,12 @@ Private Sub cleanAccordingTo(dialog As Object)
 	EndIf
 	If dialog.getControl(&quot;fixDOI&quot;).state = 1 Then
 		statusIndicator.Start(getTranslation(&quot;statusFixingDOI&quot;),100)	
+		openTrackChanges = true
 		fixDOI
 	EndIf
 	If dialog.getControl(&quot;replaceNumHyphen&quot;).state = 1 Then
 		statusIndicator.Start(getTranslation(&quot;replaceNumHyphenStatus&quot;),100)	
+		openTrackChanges = true
 		replaceNumHyphen
 	EndIf
 	If dialog.getControl(&quot;removeInitPageBreak&quot;).state = 1 Then
@@ -148,6 +152,9 @@ Private Sub cleanAccordingTo(dialog As Object)
 	statusIndicator.end()
 	saveAndreload()
 	MsgBox getTranslation(&quot;cleaningFinished&quot;)
+	If openTrackChanges Then
+      showTrackedChanges
+	Endif
 	
 End Sub
 
@@ -1961,7 +1968,6 @@ Private Sub replaceNumHyphen
 	StartTracking
 	replaceNumHyphenRegExp
 	StopTracking
-	showTrackedChanges
 End Sub
 
 
diff --git a/Redaction/Validation.xba b/Redaction/Validation.xba
index 07b74b0..dd1728d 100644
--- a/Redaction/Validation.xba
+++ b/Redaction/Validation.xba
@@ -154,7 +154,6 @@ Private Sub fixDOI
 	StartTracking
 	replaceCharsInDOI
 	StopTracking
-	showTrackedChanges
 End Sub