--- a/Tools__InternationalLanguageTranslationEditor.st	Sun Sep 08 17:31:10 2019 +0200
+++ b/Tools__InternationalLanguageTranslationEditor.st	Fri Sep 13 09:54:55 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:libtool2' }"
 
 "{ NameSpace: Tools }"
@@ -2985,10 +2987,16 @@
 
     keyStringsToLanguageMappings atLanguage: lang putFilename: aFilename.
     aStream := FileStream newFileNamed: aFilename.
-    self printLanguage: lang on: aStream.
-    aStream flush;
-	    close.
-    DialogBox information: 'The resource file for the language ', lang printString storeString, ' was saved in the file: ', aFilename nameString
+    [
+        self printLanguage: lang on: aStream.
+        aStream flush
+    ] ensure:[
+        aStream close.
+    ].
+    DialogBox 
+        information: 'The resource file for the language %1 was saved in the file: %2'
+        with:lang printString storeString
+        with:aFilename nameString
 ! !
 
 !InternationalLanguageTranslationEditor methodsFor:'searching'!
@@ -3018,7 +3026,7 @@
             selectedAssociation value sameAs: association value] ifNone:[collection add: association].
         collection].
     selectedTranslation := Dialog
-        choose:'Choose one if you consider it´s usefull to translate:
+        choose:'Choose one if you consider it´s usefull to translate:
     ',
         '<', key, '>  ', (self currentExampleLanguageText ifNil:[''])
         fromList: (similarTranslationsAssociations collect:[:each |  '<', each key, '>  ', each value])
@@ -3580,8 +3588,8 @@
     self addLanguage:#'de'.
     self addLanguage:#'fr'.
 
-    self at:'open' language:#'de' put:'öffnen'.
-    self at:'close' language:#'de' put:'schließen'.
+    self at:'open' language:#'de' put:'öffnen'.
+    self at:'close' language:#'de' put:'schließen'.
     self at:'yes' language:#'de' put:'ja'.
     self at:'no' language:#'de' put:'nein'.
     self at:'cancel' language:#'de' put:'abbrechen'.