diff --git a/ePublishing/Archive.xba b/ePublishing/Archive.xba
index a46188f..71607f4 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 archMark14
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Archive" script:language="StarBasic" script:moduleType="normal">Sub archMark15
 
 End Sub
 
@@ -417,7 +417,7 @@ End Sub
 
 
 Function isLowerCase(character As String) As Boolean
-	Dim charNum As Integer
+	Dim charNum As Long
 	If (character = &quot;&quot;) Then
 	  charNum = ASC(&quot;&quot;+0)
 	Else
diff --git a/ePublishing/Books.xba b/ePublishing/Books.xba
index eb486ed..4ff3906 100644
--- a/ePublishing/Books.xba
+++ b/ePublishing/Books.xba
@@ -183,7 +183,7 @@ Function createDupName(initName As String, newDupNames As Variant )
 End Function
 
 Function getPrefixName(initName As String) As String
-	Dim num As Integer
+	Dim num As Long
 	Dim tmpName As String
 	tmpName = Trim(initName)
 	If tmpName = &quot;&quot; Then
diff --git a/ePublishing/Hyphenations.xba b/ePublishing/Hyphenations.xba
index 0a82614..05977c5 100644
--- a/ePublishing/Hyphenations.xba
+++ b/ePublishing/Hyphenations.xba
@@ -80,7 +80,7 @@ Private Sub convertParaHyphens(para As Object)
 	Dim autoBreaks() As Object
 	Dim lineNumbers() As Integer
 &apos;	Dim lineShifts() As Integer
-	Dim charNum as Integer
+	Dim charNum as Long
 	Dim	lineLength As Integer
 	Dim lineCursor As Object
 	Dim i As Integer
@@ -336,8 +336,8 @@ End Sub
 
 
 Private Function needHyphen(before As String, after As String,lineLength As Integer) As boolean
- 	Dim charNumBefore as Integer
-	Dim charNumAfter as Integer
+ 	Dim charNumBefore as Long
+	Dim charNumAfter as Long
 	needHyphen = true
 	If lineLength &lt; 2 Then
 		needHyphen = false