diff --git a/Redaction/Configuration.xba b/Redaction/Configuration.xba
index 86f3393..07258ef 100644
--- a/Redaction/Configuration.xba
+++ b/Redaction/Configuration.xba
@@ -1,7 +1,7 @@
 <?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="Configuration" script:language="StarBasic" script:moduleType="normal">Public Const redactionExtensionName As String = &quot;cleanAndValidate&quot;
-Public Const redactionExtensionVersion = &quot;0.9.9&quot;
+Public Const redactionExtensionVersion = &quot;0.9.10&quot;
 Function initRedactionConfiguration()
 	On Error Goto exceptionHandler
 	Dim regFactory As Object
diff --git a/Redaction/Validation.xba b/Redaction/Validation.xba
index dd05772..ee5219f 100644
--- a/Redaction/Validation.xba
+++ b/Redaction/Validation.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="Validation" script:language="StarBasic">Sub markval15
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Validation" script:language="StarBasic">Sub markval16
 
 End Sub
 
@@ -807,14 +807,23 @@ Function getCharsInFont(fontName As String) As String
 		Dim n As Integer		&apos;Holds the file number
 		Dim f As Integer		&apos;Index variable
 		Dim s As String		&apos;Temporary string for input
+		Dim fileaccess As Object
+		Dim outtextstream As Object
+		Dim out As Object
+		
 		Dim sTemp$
 		GlobalScope.BasicLibraries.loadLibrary(&quot;Tools&quot;)
 		path=DirectoryNameoutofPath(ThisComponent.getURL(),&quot;/&quot;)
 		FileName = path &amp; &quot;/symbolsInFont&quot; &amp; fontName &amp; &quot;.html&quot;
-		n = FreeFile()		&apos;Next free file number
-		Open FileName For Output Access Read Write As #n		&apos;Open for read/write
-		Print #n, &quot;&lt;html&gt;&lt;head&gt;&lt;title&gt;&quot; &amp; getTranslation(&quot;symbolsInFontHeading&quot;) &amp; &quot; &quot;&amp; fontName &amp; &quot;&lt;/title&gt;&lt;/head&gt;&lt;body&gt;&lt;h2&gt;&quot; &amp; getTranslation(&quot;symbolsInFontHeading&quot;) &amp; &quot; &quot;&amp; fontName &amp;&quot;:&lt;/h2&gt;&quot;&amp;resultString &amp;&quot;&lt;/body&gt;&lt;/html&gt;&quot;
-		Close #n
+		&apos;n = FreeFile()		&apos;Next free file number
+		&apos;Open FileName For Output Access Read Write As #n		&apos;Open for read/write
+        fileaccess = createUnoService (&quot;com.sun.star.ucb.SimpleFileAccess&quot;)
+        outtextstream = createUnoService (&quot;com.sun.star.io.TextOutputStream&quot;)
+        outtextstream.setEncoding( &quot;UTF-8&quot; )
+        out = fileaccess.openFileWrite( FileName )
+        outtextstream.setOutputStream( out )
+        outtextstream.writeString(  &quot;&lt;html&gt;&lt;head&gt;&lt;title&gt;&quot; &amp; getTranslation(&quot;symbolsInFontHeading&quot;) &amp; &quot; &quot;&amp; fontName &amp; &quot;&lt;/title&gt;&lt;/head&gt;&lt;body&gt;&lt;h2&gt;&quot; &amp; getTranslation(&quot;symbolsInFontHeading&quot;) &amp; &quot; &quot;&amp; fontName &amp;&quot;:&lt;/h2&gt;&quot;&amp;resultString &amp;&quot;&lt;/body&gt;&lt;/html&gt;&quot; )
+        outtextstream.closeOutput()
 		getCharsInFont = FileName
 		Exit Function
 
diff --git a/build.gradle b/build.gradle
index a45ebf6..3b13339 100644
--- a/build.gradle
+++ b/build.gradle
@@ -1,4 +1,4 @@
-def releaseVersion = "0.9.9"
+def releaseVersion = "0.9.10"
 task oxt(type: Zip) {
    dependsOn = [ 'setVersion','setVersionInBasicCode' ]
    from './'
diff --git a/description.xml b/description.xml
index d842eea..23ae325 100644
--- a/description.xml
+++ b/description.xml
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <description xmlns="http://openoffice.org/extensions/description/2006" xmlns:dep="http://openoffice.org/extensions/description/2006" xmlns:xlink="http://www.w3.org/1999/xlink">
   <identifier value="pro.litvinovg.Redaction"/>
-  <version value="0.9.9"/>
+  <version value="0.9.10"/>
   <platform value="all"/>
   <display-name>
     <name lang="en">Cleaning and validation documents for publishing in html and epub with pagination</name>