--- a/Tools__InternationalLanguageTranslationEditor.st	Mon Jul 17 11:45:16 2017 +0200
+++ b/Tools__InternationalLanguageTranslationEditor.st	Wed Aug 02 17:10:03 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:libtool2' }"
 
 "{ NameSpace: Tools }"
@@ -1145,7 +1147,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])
@@ -1761,7 +1763,7 @@
 extractTranslationsFromProject
     |projectID newTranslations|
 
-    projectID := Dialog requestProject:(resources string:'Package to extract translations from:') initialAnswer:(lastExtractedProject ? LastExtractedProject) suggestions:(lastExtractedProject ? LastExtractedProject).
+    projectID := Dialog requestProject:(resources string:'Package to extract translations from:') initialAnswer:(lastExtractedProject ? LastExtractedProject) suggestions:(OrderedCollection with:(lastExtractedProject ? LastExtractedProject)).
     projectID notNil ifTrue:[
         projectID := projectID withoutSeparators asSymbol.
     ].
@@ -1773,7 +1775,7 @@
     self withWaitCursorDo:[
         Smalltalk allClassesDo:[:eachClass |
             eachClass theNonMetaclass instAndClassMethodsDo:[:eachMethod |
-                eachMethod package == projectID ifTrue:[ 
+                eachMethod package == projectID ifTrue:[
                     newTranslations addAll:( self extractTranslationsFromMethod:eachMethod ).
                 ]
             ].
@@ -1781,8 +1783,9 @@
 
         self addAllTranslations:newTranslations.
     ].
-    
+
     "Modified: / 19-02-2015 / 11:44:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 02-08-2017 / 17:07:55 / mawalch"
 !
 
 generateMissingTranslations: keys for: languages using: translator    
@@ -3302,8 +3305,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'.