diff --git a/Redaction/Clean.xba b/Redaction/Clean.xba
index e73fe01..875fdd6 100644
--- a/Redaction/Clean.xba
+++ b/Redaction/Clean.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="Clean" script:language="StarBasic">Sub mark56
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark57
 
 End Sub
 
@@ -172,6 +172,7 @@ Private Sub quietCleaning
 	statusIndicator.Start(getTranslation(&quot;statusLoadingStylesFromTemplate&quot;),100)	
 	loadArticleStyles
 	removeLibs
+	addTimeStampToProperties
 	statusIndicator.end()
 	saveAndreload()
 	MsgBox getTranslation(&quot;cleaningFinished&quot;)
@@ -1740,5 +1741,18 @@ sub saveAsDocAndBackToODT
 	If FileExists(tmpName) Then 
   		Kill(tmpName)
 	End If
-end sub
+end Sub
+
+Sub addTimeStampToProperties
+	Dim docProps As Object
+	Dim userProps As Object
+	Dim curTime As String
+	On Error Goto exceptionHandlerProps
+	curTime = Now()
+	docProps = ThisComponent.getDocumentProperties()
+	userProps = docProps.UserDefinedProperties()
+	userProps.addProperty(curTime ,128,&quot;Cleaned &quot; &amp; redactionExtensionVersion)
+	exceptionHandlerProps:
+	Resume Next
+End Sub
 </script:module>
\ No newline at end of file
diff --git a/Redaction/Configuration.xba b/Redaction/Configuration.xba
index dd6655f..b1749a3 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.7.15&quot;
 Function initRedactionConfiguration()
 	On Error Goto exceptionHandler
 	Dim regFactory As Object
diff --git a/build.gradle b/build.gradle
index 3d2c10d..6086410 100644
--- a/build.gradle
+++ b/build.gradle
@@ -1,6 +1,6 @@
-def releaseVersion = "0.7.14"
+def releaseVersion = "0.7.15"
 task oxt(type: Zip) {
-   dependsOn = [ 'setVersion' ]
+   dependsOn = [ 'setVersion','setVersionInBasicCode' ]
    from './'
    include '*'
    include '*/*'
@@ -21,4 +21,8 @@ task setVersion(){
      replace(path: "//*[local-name()='version']/@value", withText: "${releaseVersion}")
    }
 }
-
+task setVersionInBasicCode {
+    ant.replaceregexp(match:'redactionExtensionVersion = &quot;.*&quot;', replace:"redactionExtensionVersion = &quot;${releaseVersion}&quot;", flags:'g', byline:true) {
+        fileset(dir: 'Redaction', includes: 'Configuration.xba')
+    }
+}
diff --git a/description.xml b/description.xml
index b4b5924..c0976fa 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.7.14"/>
+  <version value="0.7.15"/>
   <platform value="all"/>
   <display-name>
     <name lang="en">Cleaning and validation documents for publishing in html and epub with pagination</name>