--- a/DataBaseSourceCodeManagementSettingsAppl.st	Sun Dec 25 14:03:46 2011 +0100
+++ b/DataBaseSourceCodeManagementSettingsAppl.st	Mon Dec 26 02:51:06 2011 +0100
@@ -393,6 +393,8 @@
 basicSaveSettings
     |infoPerModule modules|
 
+    DataBaseSourceCodeManager repositoryName:self dbNameHolder value.    
+
     modules := dbPerModule select:[:entry | entry first == DataBaseSourceCodeManager].
     infoPerModule := Dictionary new.
     modules keysAndValuesDo:[:module :entry | 
@@ -404,7 +406,7 @@
 
     self acceptChannel value.
 
-    "Modified: / 25-12-2011 / 13:21:50 / cg"
+    "Modified: / 26-12-2011 / 01:13:25 / cg"
 !
 
 condenseSourceCache
@@ -574,10 +576,14 @@
         self selectedPerModuleDatabaseChanged.
         ^ self
     ].
+    changedObject == dbNameHolder ifTrue:[
+        self updateModifiedChannel.
+        ^ self
+    ].
 
     super update:something with:aParameter from:changedObject
 
-    "Modified: / 25-12-2011 / 13:15:36 / cg"
+    "Modified: / 26-12-2011 / 01:11:59 / cg"
 !
 
 validateDirectoryExistsAndIsWritable:aDirectory
@@ -678,6 +684,9 @@
 hasUnsavedChanges
     |modules|
 
+    (DataBaseSourceCodeManager repositoryName) ~= self dbNameHolder value    
+        ifTrue:[^ true].
+
     modules := dbPerModule select:[:entry | entry first == DataBaseSourceCodeManager].
 
     DataBaseSourceCodeManager repositoryInfoPerModule keysAndValuesDo:[:module :info |
@@ -691,15 +700,15 @@
 
     ^ false
 
-    "Modified: / 25-12-2011 / 13:24:08 / cg"
+    "Modified: / 26-12-2011 / 01:12:33 / cg"
 ! !
 
 !DataBaseSourceCodeManagementSettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.2 2011-12-25 13:03:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.3 2011-12-26 01:51:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.2 2011-12-25 13:03:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DataBaseSourceCodeManagementSettingsAppl.st,v 1.3 2011-12-26 01:51:06 cg Exp $'
 ! !