diff --git a/ePublishing/Archive.xba b/ePublishing/Archive.xba
index c397e67..0ad7809 100644
--- a/ePublishing/Archive.xba
+++ b/ePublishing/Archive.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="Archive" script:language="StarBasic" script:moduleType="normal">Sub archMark18
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Archive" script:language="StarBasic" script:moduleType="normal">Sub archMark19
 
 End Sub
 
@@ -81,11 +81,23 @@ Function isAnchorEmpty(anchor As Object) As Boolean
    isAnchorEmpty = false
 End Function
 
+Sub disposeBookmark(bookmarkName As String)
+	Dim bookmarks As Object
+	Dim bookmark As Object
+	Dim elementName As String
+	elementName = ThisComponent.Links.ElementNames(6)
+	bookmarks = ThisComponent.Links.getByName(elementName)
+	If bookmarks.hasByName(bookmarkName) Then
+      bookmark = bookmarks.getByName(bookmarkName)
+      bookmark.dispose()
+    EndIf
+End Sub
 
 Sub createAnchor(targetRange as Object,anchorName as String)
 	dim oViewCursor as object
 	dim document   as object
-	dim dispatcher as object
+	dim dispatcher as Object
+	disposeBookMark(anchorName)
 	document   = ThisComponent.CurrentController.Frame
 	dispatcher = createUnoService(&quot;com.sun.star.frame.DispatchHelper&quot;)
 	oViewCursor = ThisComponent.CurrentController.getViewCursor()