--- a/UIPainter.st	Tue Jan 03 15:00:15 2017 +0100
+++ b/UIPainter.st	Tue Jan 03 15:04:47 2017 +0100
@@ -5950,14 +5950,13 @@
 
     aspectList := OrderedCollection new.
 
-    self painter aspectSelectorsAndTypesDo:
-        [:selector :type |
+    self painter aspectSelectorsAndTypesDo:[:selector :type |
             |newEntry|
 
             ( #(#modelAspect channelAspect actionSelector valueSelector) includes:type) ifTrue:[
                 ((cls canUnderstand:selector) or:[cls class canUnderstand:selector]) ifFalse:[
                     newEntry := Array with:selector with:type.    
-                    (aspectList contains:[:entry | entry = newEntry]) ifFalse:[    
+                    (aspectList includes:newEntry) ifFalse:[    
                         aspectList add:newEntry.
                     ]
                 ]