--- a/AbstractSettingsApplication.st	Sat Aug 16 11:55:16 2003 +0200
+++ b/AbstractSettingsApplication.st	Mon Aug 18 13:57:16 2003 +0200
@@ -10769,7 +10769,6 @@
     currentUserPrefs := UserPreferences current.
     currentUserPrefs useNewInspector:self useNewInspector value.
     currentUserPrefs useNewChangesBrowser:self useNewChangesBrowser value.
-    currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
     currentUserPrefs useNewVersionDiffBrowser:self useNewVersionDiffBrowser value.
     currentUserPrefs useNewFileDialog:self useNewFileDialog value.
     currentUserPrefs useProcessMonitorV2:self useProcessMonitorV2 value.
@@ -10777,6 +10776,17 @@
         currentUserPrefs useNewSettingsApplication:self useNewSettingsApplication value.
         reopenLauncher := true.
     ].
+
+    currentUserPrefs useNewSystemBrowser ~= self useNewSystemBrowser value ifTrue:[
+        currentUserPrefs useNewSystemBrowser:self useNewSystemBrowser value.
+            (self useNewSystemBrowser value and:[NewSystemBrowser isLoaded]) ifTrue:[
+                NewSystemBrowser installInLauncher.
+            ] ifFalse:[
+                NewSystemBrowser removeFromLauncher.
+            ].
+            reopenLauncher := true.
+    ].
+
     (Smalltalk at:#FileBrowserV2) isBehavior ifTrue:[
         currentUserPrefs useNewFileBrowser ~= self useNewFileBrowser value ifTrue:[
             currentUserPrefs useNewFileBrowser:self useNewFileBrowser value.
@@ -10943,5 +10953,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.92 2003-08-15 09:44:10 penk Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.93 2003-08-18 11:57:16 cg Exp $'
+! !