--- a/FileBrowserV2SettingsAppl.st	Thu Feb 13 10:05:31 2003 +0100
+++ b/FileBrowserV2SettingsAppl.st	Thu Feb 13 10:34:06 2003 +0100
@@ -328,12 +328,17 @@
 saveSettings
 
     self hasUnsavedChanges ifTrue:[
-        |  aspectList|
+        |  aspectList req writeToCurrentFileBrowser|
 
         aspectList := AbstractFileBrowser userPreferencesAspectList.
+        req := self requestor.
+        writeToCurrentFileBrowser := (req notNil and:[req isKindOf:AbstractFileBrowser]).
         aspectList do:[ : aAspect | |value|
             value := (self perform:aAspect) value.
             (currentUserPrefs perform:((aAspect asString, ':') asSymbol) with:value).
+            writeToCurrentFileBrowser ifTrue:[
+                (req perform:(aAspect asString asSymbol)) value:value.
+            ].
         ].
         self modifiedChannel value:false.
     ].
@@ -574,5 +579,5 @@
 !FileBrowserV2SettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.4 2002-12-20 15:59:14 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.5 2003-02-13 09:33:38 penk Exp $'
 ! !