diff --git a/src/Famix-Smalltalk-Utils/RBVisitorForFAMIXMetrics.class.st b/src/Famix-Smalltalk-Utils/RBVisitorForFAMIXMetrics.class.st
index ac6e2867..e56380a8 100644
--- a/src/Famix-Smalltalk-Utils/RBVisitorForFAMIXMetrics.class.st
+++ b/src/Famix-Smalltalk-Utils/RBVisitorForFAMIXMetrics.class.st
@@ -92,18 +92,6 @@ RBVisitorForFamixMetrics >> initialize [
 	self resetMetricValues
 ]
 
-{ #category : #private }
-RBVisitorForFamixMetrics >> isDirtySuperInMethod: selector withReceiver: receiver [
-
-	^ selector ~~ self methodEntity name and: [ receiver isSuperVariable ]
-]
-
-{ #category : #private }
-RBVisitorForFamixMetrics >> isSuperInMethod: selector withReceiver: receiver [
-
-	^ selector == self methodEntity name and: [ receiver isSuperVariable ]
-]
-
 { #category : #'source access' }
 RBVisitorForFamixMetrics >> methodBodyOn: aReadStream [
 	| aux |
@@ -192,32 +180,31 @@ RBVisitorForFamixMetrics >> resetMetricValues [
 	cyclomaticNumber := 1
 ]
 
-{ #category : #enumerating }
+{ #category : #visiting }
 RBVisitorForFamixMetrics >> visitBlockNode: aBlockNode [
 	super visitBlockNode: aBlockNode.
 	numberOfStatements := numberOfStatements + aBlockNode body size
 ]
 
-{ #category : #enumerating }
+{ #category : #visiting }
 RBVisitorForFamixMetrics >> visitCascadeNode: aCascadeNode [
 	numberOfStatements := numberOfStatements + aCascadeNode messages size.
 	^ super visitCascadeNode: aCascadeNode
 ]
 
-{ #category : #enumerating }
+{ #category : #visiting }
 RBVisitorForFamixMetrics >> visitMessageNode: aMessageNode [
+
 	| receiver selector |
 	receiver := aMessageNode receiver.
 	selector := aMessageNode selector.
 	super visitMessageNode: aMessageNode.
 	numberOfMessageSends := numberOfMessageSends + 1.
 	self countConditionals: selector.
-	self computeCyclomaticNumber: selector.
-	(self isSuperInMethod: selector withReceiver: receiver) ifTrue: [ self methodEntity propertyNamed: #cleanSuperSend put: true ].
-	(self isDirtySuperInMethod: selector withReceiver: receiver) ifTrue: [ self methodEntity propertyNamed: #dirtySuperSend put: true ]
+	self computeCyclomaticNumber: selector
 ]
 
-{ #category : #enumerating }
+{ #category : #visiting }
 RBVisitorForFamixMetrics >> visitMethodNode: aMethodNode [
 	
 	" I do not know where this block came from"
@@ -227,7 +214,7 @@ RBVisitorForFamixMetrics >> visitMethodNode: aMethodNode [
 	^ super visitMethodNode: aMethodNode
 ]
 
-{ #category : #enumerating }
+{ #category : #visiting }
 RBVisitorForFamixMetrics >> visitSequenceNode: aSequenceNode [
 	super visitSequenceNode: aSequenceNode.
 	numberOfStatements := numberOfStatements + aSequenceNode statements size