2 files changed, 5 insertions, 4 deletions
diff --git a/testautomation/writer/optional/includes/fields/w_fields2.inc b/testautomation/writer/optional/includes/fields/w_fields2.inc
index 4023480ff7dd..422be7088a14 100755
--- a/testautomation/writer/optional/includes/fields/w_fields2.inc
+++ b/testautomation/writer/optional/includes/fields/w_fields2.inc
@@ -879,7 +879,7 @@ testcase tDocumentStatistics
     ' document has to be copied to local file system to avoid opening a read-only file
     ' because all field data gets lost if documents write-protection is removed via 'sMakeReadOnlyDocumentEditable'
     FileCopy (sOriginalFile, sTestFile)
-    if hFileExists ( sTestFile ) = false then
+    if FileExists ( sTestFile ) = false then
         Warnlog "Test document couldn't be copied to local file system. Test aborted!"
         goto endsub
     end if
@@ -942,7 +942,7 @@ testcase tDocumentTemplate
     ' document has to be copied to local file system to avoid opening a read-only file
     ' because all field data gets lost if documents write-protection is removed via 'sMakeReadOnlyDocumentEditable'
     FileCopy (sOriginalFile, sTestFile)
-    if hFileExists ( sTestFile ) = false then
+    if FileExists ( sTestFile ) = false then
         Warnlog "Test document couldn't be copied to local file system. Test aborted!"
         goto endsub
     end if
diff --git a/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc b/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc
index 07c0dc4628d0..a8e5565e5eba 100755
--- a/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc
+++ b/testautomation/writer/optional/includes/spellcheck/w_spellcheck.inc
@@ -43,6 +43,7 @@ sub w_spellcheck
     Call tToolsThesaurus
     Call tToolsSpellcheckButtonChange
     Call tToolsSpellcheckButtonChangeAll
+    Call tToolsThesaurusSynonyms
 
 end sub
 
@@ -1286,7 +1287,7 @@ testcase tToolsThesaurus
     printlog "Set language dependent word in textfield Current Word"
     CurrentWord.Settext sWordInitial
 
-    wait 500
+    Sleep 2
     if Alternatives.GetItemCount = 0 then
         Warnlog "No alternatives text"
     else
@@ -1390,7 +1391,7 @@ testcase tToolsThesaurusSynonyms
 
     printlog " Open document where the formatting is set to the language we wish to test."
     TheFile = Convertpath (gTesttoolpath + "writer\optional\input\spellcheck\spellcheck_" + iSprache + ".odt")
-    if hFileExists ( TheFile ) <> TRUE then
+    if FileExists ( TheFile ) <> TRUE then
        Warnlog "Found no Document for the language you're testing in, Please inform the Test-Developer."
        exit sub
     end if