--- a/Smalltalk.st	Thu Sep 03 22:19:38 2015 +0200
+++ b/Smalltalk.st	Fri Sep 04 10:32:38 2015 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -4921,8 +4919,10 @@
 language:aLanguageSymbol
     "set the language - send out change notifications"
 
-    Language := aLanguageSymbol asSymbol.
-    self changed:#Language
+    aLanguageSymbol ~= Language ifTrue:[
+        Language := aLanguageSymbol asSymbol.
+        self changed:#Language
+    ].
 
     "
      Smalltalk language:#de
@@ -4934,9 +4934,11 @@
 language:aLanguageSymbol territory:aTerritorySymbol
     "set the language & territory - send out change notifications"
 
-    Language := aLanguageSymbol asSymbol.
-    LanguageTerritory := aTerritorySymbol asSymbol.
-    self changed:#Language
+    ((Language ~= aLanguageSymbol) or:[ LanguageTerritory ~= aTerritorySymbol]) ifTrue:[
+        Language := aLanguageSymbol asSymbol.
+        LanguageTerritory := aTerritorySymbol asSymbol.
+        self changed:#Language
+    ].
 
     "
      Smalltalk language:#de territory:#de
@@ -8080,13 +8082,13 @@
     (lang == #de) ifTrue:[
 	proto := 'Willkommen bei %1 (Version %2 von %3)'
     ] ifFalse:[ (lang == #fr) ifTrue:[
-	proto := 'Salut, Bienvenue à %1 (version %2 de %3)'
+	proto := 'Salut, Bienvenue à %1 (version %2 de %3)'
     ] ifFalse:[ (lang == #it) ifTrue:[
 	proto := 'Ciao, benvenuto al %1 (versione %2 di %3)'
     ] ifFalse:[ (lang == #es) ifTrue:[
-"/        proto := 'Hola, bienvenida a %1 (versión %2 de %3)'
+"/        proto := 'Hola, bienvenida a %1 (versión %2 de %3)'
     ] ifFalse:[ (lang == #es) ifTrue:[
-"/        proto := 'Oi, benvindo a %1 (versão %2 de %3)'
+"/        proto := 'Oi, benvindo a %1 (versão %2 de %3)'
     ] ifFalse:[ (lang == #no) ifTrue:[
 	proto := 'Hei, verdenmottakelse til %1 (versjon %2 av %3)'
     ]]]]]].