--- a/AbstractSettingsApplication.st	Tue Aug 24 18:43:02 2010 +0200
+++ b/AbstractSettingsApplication.st	Tue Aug 24 18:53:26 2010 +0200
@@ -5432,8 +5432,11 @@
 !AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'actions'!
 
 basicReadSettings
+    self languageIndexHolder value:self currentLanguageIndex.
     self languageHolder value:self currentLanguage.
     self currentFlagAndLanguageChannel value:self currentLanguage.
+
+    "Modified: / 24-08-2010 / 18:52:48 / sr"
 !
 
 basicSaveSettings
@@ -5837,9 +5840,10 @@
 !
 
 hasUnsavedChanges
-    ^ (self languageHolder value string) ~= (self currentLanguageCode)
+    ^ languageIndexHolder value ~= self currentLanguageIndex
 
     "Modified: / 17-10-2006 / 17:51:09 / cg"
+    "Modified: / 24-08-2010 / 18:50:11 / sr"
 ! !
 
 !AbstractSettingsApplication::MemorySettingsAppl class methodsFor:'image specs'!
@@ -16476,9 +16480,9 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.366 2010-08-24 15:41:20 sr Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.367 2010-08-24 16:53:26 sr Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.366 2010-08-24 15:41:20 sr Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.367 2010-08-24 16:53:26 sr Exp $'
+! !