diff --git a/ePublishing/Footnotes.xba b/ePublishing/Footnotes.xba
index c089b6e..3231d85 100644
--- a/ePublishing/Footnotes.xba
+++ b/ePublishing/Footnotes.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="Footnotes" script:language="StarBasic" script:moduleType="normal">sub footMark7
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Footnotes" script:language="StarBasic" script:moduleType="normal">sub footMark8
 End Sub
 
 Sub openFootNotesDialog
@@ -284,4 +284,27 @@ Private Sub doNotTrack
 	args1(0).Value = true
 	dispatcher.executeDispatch(document, &quot;.uno:ShowTrackedChanges&quot;, &quot;&quot;, 0, args1())
 End Sub
+
+Sub FixFootnotes()
+	Dim description As String
+	Dim allNotes As Object
+	Dim aNote As Object
+	Dim oViewCursor As Object
+	turnOffTracking
+	AcceptAllTrackedChanges
+	oViewCursor = ThisComponent.currentController.getViewCursor()
+	&apos;Globalscope.BasicLibraries.LoadLibrary( &quot;MRILib&quot; )
+	allNotes = ThisComponent.FootNotes
+	For x = 0 to allNotes.Count -1
+	  aNote = allNotes.getByIndex(x) 
+	  anchor = aNote.anchor
+	  oViewCursor.goToRange(anchor,false)
+	  oViewCursor.collapseToStart()
+  	  oViewCursor.goToRange(anchor,true)
+	  unoCut()
+	  oViewCursor.goLeft(1,false)
+	  unoPaste()
+	Next
+	
+End Sub
 </script:module>
\ No newline at end of file