--- a/Tools__LintRuleSettingsApplication.st	Tue Jul 07 13:01:43 2015 +0200
+++ b/Tools__LintRuleSettingsApplication.st	Tue Jul 07 13:06:36 2015 +0200
@@ -432,10 +432,10 @@
     Dialog warn: 'Not yet implemented'.
     ^ self.
 
-    file := Dialog requestFileName: (resources string: 'Select file') default: (LastFileName ? Filename currentDirectory / 'exported-ruleset.st').
-    file isEmptyOrNil ifTrue:[ ^ self ].
-
-    self shouldImplement
+"/    file := Dialog requestFileName: (resources string: 'Select file') default: (LastFileName ? Filename currentDirectory / 'exported-ruleset.st').
+"/    file isEmptyOrNil ifTrue:[ ^ self ].
+"/
+"/    self shouldImplement
 
     "Modified: / 14-10-2014 / 16:33:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -451,14 +451,15 @@
 doRemove
     <resource: #uiCallback>
 
-    | rule idx |
+    | rule idx rulesetList |
 
     rule := self rulesetSelectionHolder value.
-    idx := self rulesetList indexOf: rule.
+    rulesetList := self rulesetList.
+    idx := rulesetList indexOf: rule.
     idx ~~ 0 ifTrue:[
-        self rulesetList remove: rule.
-        self rulesetList size > 0 ifTrue:[
-            self rulesetSelectionHolder value: (self rulesetList at: ((idx -1 ) max: 1))
+        rulesetList remove: rule.
+        rulesetList size > 0 ifTrue:[
+            self rulesetSelectionHolder value: (rulesetList at: ((idx -1 ) max: 1))
         ]
     ].
     self updateModifiedChannel