--- a/AbstractSettingsApplication.st	Tue Oct 14 18:53:35 2014 +0200
+++ b/AbstractSettingsApplication.st	Tue Oct 14 23:15:53 2014 +0200
@@ -16521,6 +16521,7 @@
                                      isReadOnly: true
                                      acceptOnReturn: true
                                      acceptOnTab: true
+                                     converter: smallLintRulesetDefaultAdaptor
                                      acceptOnPointerLeave: true
                                      emptyFieldReplacementText: 'Default'
                                    )
@@ -16641,10 +16642,10 @@
     dialog := Tools::LintRuleSelectionDialog new.
     dialog open.
     dialog accepted ifTrue:[
-        smallLintRulesetDefault value: dialog selectionAsRule name.
+        smallLintRulesetDefault value: dialog selectionAsRule.
     ]
 
-    "Modified: / 13-10-2014 / 22:23:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 14-10-2014 / 22:12:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !AbstractSettingsApplication::SystemBrowserSettingsAppl methodsFor:'aspects'!
@@ -16742,11 +16743,20 @@
         smallLintRulesetDefault := ValueHolder new.
 "/ if your app needs to be notified of changes, uncomment one of the lines below:
 "/       smallLintRulesetNameDefault addDependent:self.
-"/       smallLintRulesetNameDefault onChangeSend:#smallLintRulesetNameDefaultChanged to:self.
+        smallLintRulesetDefault onChangeSend:#updateModifiedChannel to:self.
     ].
     ^ smallLintRulesetDefault.
 
     "Created: / 14-10-2014 / 08:19:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 14-10-2014 / 18:23:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+smallLintRulesetDefaultAdaptor
+    ^ PluggableAdaptor new
+        getter:[ :model | model value isNil ifTrue:[nil] ifFalse:[model value name]]
+        setter:[ :model :value | ]
+
+    "Created: / 14-10-2014 / 22:11:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 sortAndIndentClassesByInheritance
@@ -18790,10 +18800,10 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.563 2014-10-14 14:10:39 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.564 2014-10-14 21:15:53 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.563 2014-10-14 14:10:39 vrany Exp $'
-! !
-
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.564 2014-10-14 21:15:53 vrany Exp $'
+! !
+