--- a/TranslucentColor.st	Wed May 16 08:35:01 2018 +0200
+++ b/TranslucentColor.st	Thu May 17 15:46:23 2018 +0200
@@ -190,10 +190,10 @@
 !TranslucentColor methodsFor:'comparing'!
 
 = aColor
-    aColor species == self species ifFalse:[^ false].
+    ^ aColor species == self species 
+        and:[(self alpha = aColor alpha) and:[super = aColor]].
 
-    ^ (self alpha = aColor alpha)
-      and:[ super = aColor ]
+    "Modified: / 17-05-2018 / 14:53:34 / Stefan Vogel"
 !
 
 almostSameAs:aColor