diff --git a/src/NewTools-Debugger/StDebugger.class.st b/src/NewTools-Debugger/StDebugger.class.st
index f54855ebc..68a94c42c 100644
--- a/src/NewTools-Debugger/StDebugger.class.st
+++ b/src/NewTools-Debugger/StDebugger.class.st
@@ -467,10 +467,10 @@ StDebugger >> createSubclassResponsibility [
 StDebugger >> currentContext [
 	"I answer the context on which an action should be executed.
 	This is either the selected context or if nothing is selected the interrupted context."
-	
-	^ self selectedContext isNil 
-		ifTrue: [ self interruptedContext ]
-		ifFalse: [ self selectedContext ]
+
+	^ self selectedContext
+		  ifNil: [ self interruptedContext ]
+		  ifNotNil: [ self selectedContext ]
 ]
 
 { #category : #accessing }
diff --git a/src/NewTools-RewriterTools/StRewriterRuleLoaderPresenter.class.st b/src/NewTools-RewriterTools/StRewriterRuleLoaderPresenter.class.st
index 64d9ee3ac..da37b1423 100644
--- a/src/NewTools-RewriterTools/StRewriterRuleLoaderPresenter.class.st
+++ b/src/NewTools-RewriterTools/StRewriterRuleLoaderPresenter.class.st
@@ -93,9 +93,3 @@ StRewriterRuleLoaderPresenter >> rhs [
 
 	^ rulesTableSelector rhs
 ]
-
-{ #category : #actions }
-StRewriterRuleLoaderPresenter >> setAllRulesAsTableItems [
-
-	rulesTableSelector refreshRules
-]
diff --git a/src/NewTools-Spotter-Processors/StSpotterCandidatesListProcessor.class.st b/src/NewTools-Spotter-Processors/StSpotterCandidatesListProcessor.class.st
index 943051f2e..48edf1d22 100644
--- a/src/NewTools-Spotter-Processors/StSpotterCandidatesListProcessor.class.st
+++ b/src/NewTools-Spotter-Processors/StSpotterCandidatesListProcessor.class.st
@@ -27,14 +27,6 @@ StSpotterCandidatesListProcessor >> actLogic: aBlockWithTwoArguments [
 	actBlock := aBlockWithTwoArguments
 ]
 
-{ #category : #private }
-StSpotterCandidatesListProcessor >> actOn: anObject for: aStep [
-	
-	actBlock
-		ifNil: [ super actOn: anObject for: aStep ]
-		ifNotNil: [ actBlock cull: anObject cull: aStep ]
-]
-
 { #category : #compatibility }
 StSpotterCandidatesListProcessor >> allCandidates: aBlockWithOneArgument [
 	self items: aBlockWithOneArgument
diff --git a/src/NewTools-Spotter-Processors/StSpotterPragmaBasedProcessor.class.st b/src/NewTools-Spotter-Processors/StSpotterPragmaBasedProcessor.class.st
index c6cfc8b95..dc8789b73 100644
--- a/src/NewTools-Spotter-Processors/StSpotterPragmaBasedProcessor.class.st
+++ b/src/NewTools-Spotter-Processors/StSpotterPragmaBasedProcessor.class.st
@@ -58,11 +58,6 @@ StSpotterPragmaBasedProcessor class >> settingsOn: aBuilder [
 		description: 'Number of total results per of category to show in Spotter'
 ]
 
-{ #category : #public }
-StSpotterPragmaBasedProcessor >> actOn: anObject for: aStep [
-	anObject spotterActDefault: aStep
-]
-
 { #category : #public }
 StSpotterPragmaBasedProcessor >> allFilteredCandidates [
 	^ allFilteredCandidates ifNil: [ allFilteredCandidates := OrderedCollection new ]