diff --git a/src/Pyramid-Bloc/BlColorPaint.extension.st b/src/Pyramid-Bloc/BlColorPaint.extension.st
index 715bc872..c6c9650d 100644
--- a/src/Pyramid-Bloc/BlColorPaint.extension.st
+++ b/src/Pyramid-Bloc/BlColorPaint.extension.st
@@ -1,12 +1,5 @@
 Extension { #name : #BlColorPaint }
 
-{ #category : #'*Pyramid-Bloc' }
-BlColorPaint >> = aBlPaint [
-
-	super = aBlPaint ifFalse: [ ^ false ].
-	^ self color = aBlPaint color
-]
-
 { #category : #'*Pyramid-Bloc' }
 BlColorPaint >> asForm [
 
diff --git a/src/Pyramid-Bloc/BlGradientPaint.extension.st b/src/Pyramid-Bloc/BlGradientPaint.extension.st
index 4b857b27..4ccffa85 100644
--- a/src/Pyramid-Bloc/BlGradientPaint.extension.st
+++ b/src/Pyramid-Bloc/BlGradientPaint.extension.st
@@ -3,7 +3,8 @@ Extension { #name : #BlGradientPaint }
 { #category : #'*Pyramid-Bloc' }
 BlGradientPaint >> = aBlPaint [
 
-	super = aBlPaint ifFalse: [ ^ false ].
+	self == aBlPaint ifTrue: [ ^ true ].
+	self class == aBlPaint class ifFalse: [ ^ false ].
 	^ self stops = aBlPaint stops
 ]
 
diff --git a/src/Pyramid-Bloc/BlPaint.extension.st b/src/Pyramid-Bloc/BlPaint.extension.st
index c25d7c4b..3d18a983 100644
--- a/src/Pyramid-Bloc/BlPaint.extension.st
+++ b/src/Pyramid-Bloc/BlPaint.extension.st
@@ -1,12 +1,5 @@
 Extension { #name : #BlPaint }
 
-{ #category : #'*Pyramid-Bloc' }
-BlPaint >> = anObject [
-
-	anObject == self ifTrue: [ ^ true ].
-	^ anObject class = self class
-]
-
 { #category : #'*Pyramid-Bloc' }
 BlPaint >> asForm [
 
diff --git a/src/Pyramid-Bloc/BlPaintBackground.extension.st b/src/Pyramid-Bloc/BlPaintBackground.extension.st
index 961e7b56..7132fca7 100644
--- a/src/Pyramid-Bloc/BlPaintBackground.extension.st
+++ b/src/Pyramid-Bloc/BlPaintBackground.extension.st
@@ -1,12 +1,5 @@
 Extension { #name : #BlPaintBackground }
 
-{ #category : #'*Pyramid-Bloc' }
-BlPaintBackground >> = aBlBackground [
-
-	super = aBlBackground ifFalse: [ ^ false ].
-	^ self paint = aBlBackground paint
-]
-
 { #category : #'*Pyramid-Bloc' }
 BlPaintBackground >> asForm [