--- a/AbstractSettingsApplication.st	Thu Nov 24 16:05:27 2016 +0100
+++ b/AbstractSettingsApplication.st	Thu Nov 24 18:02:22 2016 +0100
@@ -17556,14 +17556,17 @@
 basicSaveSettings
     |newStyle|
 
-    newStyle := self selectedStyle value.
+    newStyle := self selectedStyle value asSymbol.
 
     self withWaitCursorDo:[
         Transcript showCR:'Change style to ' , newStyle , ' ...'.
-        View defaultStyle:newStyle asSymbol.
+        View defaultStyle:newStyle.
+        currentUserPrefs viewStyle:newStyle.
         currentUserPrefs fontPreferencesChanged. "/ force into class defaults
     ].
     self reopenToolsAfterChangedViewStyleSetting.
+
+    "Modified: / 24-11-2016 / 18:02:04 / cg"
 !
 
 closePreview