diff --git a/PokemonGoIV/2Report.vb b/PokemonGoIV/2Report.vb
index 6a19671..ffe27c8 100644
--- a/PokemonGoIV/2Report.vb
+++ b/PokemonGoIV/2Report.vb
@@ -464,7 +464,7 @@ Function fnFindPokemonGOIVSheet (sPokemon As String) As Object
 	If IsNull (oDoc) Then
 		oDoc = StarDesktop.loadComponentFromURL ( _
 			"private:factory/scalc", "_default", 0, mProps)
-		oDoc.setTitle (sDocTitle)
+		oDoc.getDocumentProperties.Title = sDocTitle
 		oSheets = oDoc.getSheets
 		mNames = oSheets.getElementNames
 		oSheets.insertNewByName (sPokemon, 0)
@@ -494,7 +494,7 @@ Function fnFindDocByTitle (sTitle) As Object
 		oDoc = oEnum.nextElement
 		If oDoc.supportsService ( _
 				"com.sun.star.sheet.SpreadsheetDocument") Then
-			If oDoc.getTitle = sTitle Then
+			If oDoc.getDocumentProperties.Title = sTitle Then
 				fnFindDocByTitle = oDoc
 				Exit Function
 			End If
diff --git a/VERSION b/VERSION
index 6f4eebd..100435b 100644
--- a/VERSION
+++ b/VERSION
@@ -1 +1 @@
-0.8.1
+0.8.2
diff --git a/excludes/pokemongoiv.update.xml b/excludes/pokemongoiv.update.xml
index 910758c..f6bc89e 100644
--- a/excludes/pokemongoiv.update.xml
+++ b/excludes/pokemongoiv.update.xml
@@ -2,8 +2,8 @@
 <description xmlns="http://openoffice.org/extensions/update/2006"
 	xmlns:xlink="http://www.w3.org/1999/xlink">
 <identifier value="tw.idv.imacat.office.pokemongoiv" />
-	<version value="0.8.1" />
+	<version value="0.8.2" />
 	<update-download>
-		<src xlink:href="https://sourceforge.net/projects/aoo-extensions/files/18585/29/pokemongoiv.oxt" />
+		<src xlink:href="https://sourceforge.net/projects/aoo-extensions/files/18585/30/pokemongoiv.oxt" />
 	</update-download>
 </description>
diff --git a/oxt/PokemonGoIV/2Report.xba b/oxt/PokemonGoIV/2Report.xba
index 7b9dde6..8873d63 100644
--- a/oxt/PokemonGoIV/2Report.xba
+++ b/oxt/PokemonGoIV/2Report.xba
@@ -466,7 +466,7 @@ Function fnFindPokemonGOIVSheet (sPokemon As String) As Object
 	If IsNull (oDoc) Then
 		oDoc = StarDesktop.loadComponentFromURL ( _
 			&quot;private:factory/scalc&quot;, &quot;_default&quot;, 0, mProps)
-		oDoc.setTitle (sDocTitle)
+		oDoc.getDocumentProperties.Title = sDocTitle
 		oSheets = oDoc.getSheets
 		mNames = oSheets.getElementNames
 		oSheets.insertNewByName (sPokemon, 0)
@@ -496,7 +496,7 @@ Function fnFindDocByTitle (sTitle) As Object
 		oDoc = oEnum.nextElement
 		If oDoc.supportsService ( _
 				&quot;com.sun.star.sheet.SpreadsheetDocument&quot;) Then
-			If oDoc.getTitle = sTitle Then
+			If oDoc.getDocumentProperties.Title = sTitle Then
 				fnFindDocByTitle = oDoc
 				Exit Function
 			End If