--- a/AbstractSettingsApplication.st	Tue Oct 21 20:21:29 2003 +0200
+++ b/AbstractSettingsApplication.st	Wed Oct 22 00:55:18 2003 +0200
@@ -1995,8 +1995,11 @@
 !AbstractSettingsApplication::EditSettingsAppl methodsFor:'actions'!
 
 basicSaveSettings
-
-    UserPreferences current st80EditMode:(self st80EditingMode value).
+    |prefs|
+
+    prefs := UserPreferences current.
+
+    prefs st80EditMode:(self st80EditingMode value).
     TextView st80SelectMode:(self st80DoubleClickSelectMode value).
     tabsIs4 value ~~ (ListView userDefaultTabPositions = ListView tab4Positions) ifTrue:[
         ListView userDefaultTabPositions:(self tabsIs4 value ifTrue:[ListView tab4Positions] ifFalse:[ListView tab8Positions]).
@@ -2004,8 +2007,8 @@
             self tabsIs4 value ifTrue:[eachKindOfListView setTab4] ifFalse:[eachKindOfListView setTab8]
         ].
     ].
-    UserPreferences current searchDialogIsModal:self searchDialogIsModal value.
-    UserPreferences current startTextDragWithControl:self startTextDragWithControl value.
+    prefs searchDialogIsModal:self searchDialogIsModal value.
+    prefs startTextDragWithControl:self startTextDragWithControl value.
 !
 
 helpFilename
@@ -10891,5 +10894,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.116 2003-10-21 14:14:16 penk Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.117 2003-10-21 22:55:18 cg Exp $'
+! !