--- a/Tools__LintRuleSettingsApplication.st	Tue Jul 07 12:46:51 2015 +0200
+++ b/Tools__LintRuleSettingsApplication.st	Tue Jul 07 13:01:43 2015 +0200
@@ -194,7 +194,7 @@
                        )
                       (VerticalPanelViewSpec
                          name: 'Buttons1'
-                         layout: (LayoutFrame -128 1 30 0 0 1 -65 0.70000000000000084)
+                         layout: (LayoutFrame -128 1 30 0 0 1 -65 0.70000000000000095)
                          horizontalLayout: fit
                          verticalLayout: top
                          horizontalSpace: 5
@@ -244,7 +244,7 @@
                        )
                       (VerticalPanelViewSpec
                          name: 'Buttons2'
-                         layout: (LayoutFrame -128 1 -64 0.70000000000000084 0 1 0 1)
+                         layout: (LayoutFrame -128 1 -64 0.70000000000000095 0 1 0 1)
                          horizontalLayout: fit
                          verticalLayout: bottom
                          horizontalSpace: 5
@@ -306,16 +306,17 @@
                       (LabelSpec
                          label: 'Default in Browser:'
                          name: 'Label1'
-                         layout: (LayoutFrame 0 0 -30 1 200 0 0 1)
+                         layout: (LayoutFrame 0 0 -30 1 170 0 0 1)
                          translateLabel: true
                          adjust: left
                        )
                       (LabelSpec
                          label: 'default ruleset in browser'
                          name: 'Label2'
-                         layout: (LayoutFrame 200 0 -30 1 -128 1 0 1)
+                         layout: (LayoutFrame 170 0 -30 1 -128 1 0 1)
                          translateLabel: true
                          labelChannel: defaultInBrowserRuleNameHolder
+                         adjust: left
                        )
                       )
                     
@@ -428,7 +429,7 @@
 
     | file |
 
-    DIalog warn: 'Not yet implemented'.
+    Dialog warn: 'Not yet implemented'.
     ^ self.
 
     file := Dialog requestFileName: (resources string: 'Select file') default: (LastFileName ? Filename currentDirectory / 'exported-ruleset.st').
@@ -572,7 +573,7 @@
                 self updateModifiedChannel.
                 self defaultInBrowserRuleNameHolder 
                     value:(smallLintRulesetDefault value isNil
-                            ifTrue:['* none *']
+                            ifTrue:[ RBBuiltinRuleSet rulesetBuiltinDefault]
                             ifFalse:[ smallLintRulesetDefault value name ])
             ].
     ].
@@ -680,13 +681,15 @@
     |defaultRules currentRules firstTry rbCompositeLintRuleClass|
 
     self smallSenseEnabledHolder value ifTrue:[
-        UserPreferences current addPreloadedPackage:'stx:goodies/smallsense'
+        currentUserPrefs addPreloadedPackage:'stx:goodies/smallsense'
     ].
-    (UserPreferences current perform:#smallSenseEnabled ifNotUnderstood:false)
+    (currentUserPrefs perform:#smallSenseEnabled ifNotUnderstood:false)
             ~= (self smallSenseEnabledHolder value) 
     ifTrue:[
         ^ true
     ].
+    currentUserPrefs smallLintRulesetDefault ~= (smallLintRulesetDefault value) ifTrue:[^ true].
+
     rbCompositeLintRuleClass := Smalltalk at:#'RBCompositeLintRule'.
     rbCompositeLintRuleClass isNil ifTrue:[^ false].