--- a/ChangeSet.st	Sat Jan 23 06:59:16 2016 +0100
+++ b/ChangeSet.st	Sun Jan 24 06:56:27 2016 +0100
@@ -790,7 +790,6 @@
     "Created: / 27.10.1997 / 13:52:54 / cg"
 ! !
 
-
 !ChangeSet class methodsFor:'Compatibility-VW'!
 
 component: component definition: anObject change: changeSymbol
@@ -1018,25 +1017,25 @@
 !
 
 changeSelectors
-    "return a collection of all selectors for which changes are in this changeSet"
+    "return a collection (a set) of all selectors for which changes are in this changeSet"
 
     |selectors|
 
     changeSelectors isNil ifTrue:[
-	selectors := IdentitySet new.
-	self do:[:chg |
-	    |sel|
-
-	    chg notNil ifTrue:[
-		chg isMethodChange ifTrue:[
-		    sel := chg selector.
-		    sel notNil ifTrue:[
-			selectors add:sel
-		    ]
-		]
-	    ]
-	].
-	changeSelectors := selectors.
+        selectors := IdentitySet new.
+        self do:[:chg |
+            |sel|
+
+            chg notNil ifTrue:[
+                chg isMethodChange ifTrue:[
+                    sel := chg selector.
+                    sel notNil ifTrue:[
+                        selectors add:sel
+                    ]
+                ]
+            ]
+        ].
+        changeSelectors := selectors.
     ].
     ^ changeSelectors.
 
@@ -1594,14 +1593,7 @@
 
     nameOfClass := aClass name.
 
-    ^ self contains:[:aChange |
-			selector = aChange selector
-			ifFalse:[
-			    false
-			] ifTrue:[
-			    nameOfClass = aChange className
-			]
-		    ]
+    ^ self contains:[:aChange | (selector = aChange selector) and:[nameOfClass = aChange className]]
 
     "
      ChangeSet current includesChangeForClass:ChangeSet selector:#includesChangeForClass: