--- a/SmallSense__SmalltalkChecker.st	Mon May 16 23:56:35 2016 +0200
+++ b/SmallSense__SmalltalkChecker.st	Tue May 17 00:04:51 2016 +0200
@@ -122,6 +122,12 @@
 
 reEnableAllDisabledRules
     UserDisabledRules := nil
+!
+
+userDisabledRules
+    "return the list of rules which the user disabled explicitly"
+
+    ^ UserDisabledRules
 ! !
 
 !SmalltalkChecker methodsFor:'private'!