diff --git a/src/MuTalk-Model/MTAnalysis.class.st b/src/MuTalk-Model/MTAnalysis.class.st
index 48d1466..f82be5b 100644
--- a/src/MuTalk-Model/MTAnalysis.class.st
+++ b/src/MuTalk-Model/MTAnalysis.class.st
@@ -137,7 +137,7 @@ MTAnalysis >> generateCoverageAnalysis [
 MTAnalysis >> generateMutations [
 
 	^ mutations ifNil: [
-		  logger logStartMutationGeneration: self methodSize.
+		  logger logStartMutationGeneration: self methodsCount.
 		  mutations := mutantGenerationStrategy
 			               mutationsFor: self
 			               loggingIn: logger.
@@ -217,7 +217,7 @@ MTAnalysis >> logger: anObject [
 ]
 
 { #category : 'accessing' }
-MTAnalysis >> methodSize [
+MTAnalysis >> methodsCount [
 
 	^ (self modelClasses flatCollect: #methods) size
 ]
@@ -260,6 +260,18 @@ MTAnalysis >> mutantResults [
 	^ mutantResults
 ]
 
+{ #category : 'accessing' }
+MTAnalysis >> mutantSelectionStrategy [
+
+	^ mutantGenerationStrategy mutantSelectionStrategy
+]
+
+{ #category : 'accessing' }
+MTAnalysis >> mutantSelectionStrategy: anObject [
+
+	mutantGenerationStrategy mutantSelectionStrategy: anObject
+]
+
 { #category : 'accessing' }
 MTAnalysis >> mutations [