diff --git a/Moose-Blueprint-Models/CBClassBlueprint.class.st b/Moose-Blueprint-Models/CBClassBlueprint.class.st
index 3604821..6252ba7 100644
--- a/Moose-Blueprint-Models/CBClassBlueprint.class.st
+++ b/Moose-Blueprint-Models/CBClassBlueprint.class.st
@@ -515,11 +515,9 @@ CBClassBlueprint >> newOutgoingInvocation [
 CBClassBlueprint >> notClassifiedMethods [
 
 	| alreadyClassified |
-	alreadyClassified := self methodModels collect: [ :aMethod | 
-		                     aMethod entity ].
-	
-	^ (entity methods reject: [ :each | alreadyClassified includes: each ]) 
-		  reject: #isCBAccessor
+	alreadyClassified := self methodModels collect: [ :aMethod | aMethod entity ].
+
+	^ (entity methods reject: [ :each | alreadyClassified includes: each ]) reject: #isAccessor
 ]
 
 { #category : 'accessing' }
diff --git a/Moose-Blueprint-Models/FamixTMethod.extension.st b/Moose-Blueprint-Models/FamixTMethod.extension.st
index 730c57e..b7ab31c 100644
--- a/Moose-Blueprint-Models/FamixTMethod.extension.st
+++ b/Moose-Blueprint-Models/FamixTMethod.extension.st
@@ -36,8 +36,9 @@ FamixTMethod >> inSameClassAs: aMethod [
 
 { #category : '*Moose-Blueprint-Models' }
 FamixTMethod >> isCBAccessor [
-self deprecated: 'please use isAccessor'  transformWith:  '`@receiver isCBAccessor' -> '`@receiver isAccessor '.
-	^ self isSetter or: [ self isGetter ]
+
+	self deprecated: 'please use isAccessor' transformWith: '`@receiver isCBAccessor' -> '`@receiver isAccessor '.
+	^ self isAccessor
 ]
 
 { #category : '*Moose-Blueprint-Models' }