--- a/SmallSense__CriticsWindow.st	Fri Aug 30 12:00:05 2013 +0100
+++ b/SmallSense__CriticsWindow.st	Mon Sep 02 10:33:12 2013 +0100
@@ -237,7 +237,7 @@
         fixer := nil.
         html :=  'No rule...'.
     ] ifFalse:[
-        fixer := QuickFixer for: rule view: codeView.
+        fixer := SmalltalkQuickFixer for: rule view: codeView.
         html := String streamContents:[:s|
                     s nextPutAll: rule rationale ; cr.
                     fixer printHtmlOn: s.
@@ -247,6 +247,7 @@
     self ruleRationaleAndFixesHTMLHolder value: html
 
     "Created: / 01-02-2012 / 10:56:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 01-09-2013 / 09:37:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !CriticsWindow methodsFor:'event processing'!

--- a/SmallSense__SmalltalkLintService.st	Fri Aug 30 12:00:05 2013 +0100
+++ b/SmallSense__SmalltalkLintService.st	Mon Sep 02 10:33:12 2013 +0100
@@ -106,9 +106,10 @@
      must be redefined to return true in subclasses (but each class must do it only
      for itself - not for subclasses"
 
-    ^ self == Service.
+    ^ self == SmalltalkLintService.
 
     "Created: / 24-07-2013 / 11:35:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 01-09-2013 / 09:32:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !SmalltalkLintService class methodsFor:'testing'!
@@ -181,7 +182,7 @@
         UserPreferences current smallSenseBackgroundLintEnabled ifTrue:[
             | ruleList |
 
-            ruleList := rulesHolder value flattened reject:[:each| Checker forceDisabledRules includes: each class name].
+            ruleList := rulesHolder value flattened reject:[:each| SmalltalkChecker forceDisabledRules includes: each class name].
             rules := RBCompositeLintRule rules: ruleList.
             highlighter rules: ruleList.
 
@@ -192,7 +193,7 @@
 
     super update:something with:aParameter from:changedObject
 
-    "Modified (format): / 27-07-2013 / 22:33:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 01-09-2013 / 09:35:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !SmalltalkLintService methodsFor:'event handling'!

--- a/smallsense.rc	Fri Aug 30 12:00:05 2013 +0100
+++ b/smallsense.rc	Mon Sep 02 10:33:12 2013 +0100
@@ -25,7 +25,7 @@
       VALUE "LegalCopyright", "Copyright Claus Gittinger 1988-2011\nCopyright eXept Software AG 1998-2011\0"
       VALUE "ProductName", "Smalltalk/X\0"
       VALUE "ProductVersion", "6.2.3.0\0"
-      VALUE "ProductDate", "Mon, 26 Aug 2013 23:00:20 GMT\0"
+      VALUE "ProductDate", "Mon, 02 Sep 2013 09:32:43 GMT\0"
     END
 
   END