--- a/Tools__ChangeList.st	Fri Sep 06 00:48:24 2013 +0200
+++ b/Tools__ChangeList.st	Fri Sep 06 01:18:30 2013 +0200
@@ -960,11 +960,10 @@
 !
 
 hasChangeSelectedAndNotRemoved
+    | selection |
 
-    | selection |
     selection := self selectionHolder value ? #().
-    ^selection size > 0 and:
-        [selection allSatisfy:[:e|e removed not]].
+    ^selection size > 0 and: [selection conform:[:e|e removed not]].
 !
 
 hasSingleChangeSelected
@@ -1201,14 +1200,14 @@
 !ChangeList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.25 2013-09-05 10:46:11 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.26 2013-09-05 23:18:30 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.25 2013-09-05 10:46:11 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeList.st,v 1.26 2013-09-05 23:18:30 cg Exp $'
 !
 
 version_SVN
-    ^ '§Id: Tools__ChangeList.st 7486 2009-10-26 22:06:24Z vranyj1 §'
+    ^ '$Id: Tools__ChangeList.st,v 1.26 2013-09-05 23:18:30 cg Exp $'
 ! !