--- a/Tools__ClassList.st	Fri Jan 22 20:41:02 2016 +0100
+++ b/Tools__ClassList.st	Fri Jan 22 20:45:28 2016 +0100
@@ -657,20 +657,20 @@
 
     numSelected := selectedClasses size.
     numSelected == 0 ifTrue:[
-	^ #()
+        ^ #()
     ].
 
     numSelected == classes size ifTrue:[
-	"/ all selected - easy
-	^ (1 to:numSelected) asOrderedCollection
+        "/ all selected - easy
+        ^ (1 to:numSelected) asOrderedCollection
     ].
     meta value ifTrue:[
-	classes := classes collect:[:eachClass | eachClass theMetaclass].
+        classes := classes collect:[:eachClass | eachClass theMetaclass].
     ].
 
-    classes := selectedClasses collect:[:aSelectedClass | classes identityIndexOf:aSelectedClass.].
-    classes := classes select:[:idx | idx ~= 0].
-    ^ classes
+    ^ selectedClasses 
+        collect:[:aSelectedClass | classes identityIndexOf:aSelectedClass]
+        thenSelect:[:idx | idx ~= 0].
 
     "Created: / 24.2.2000 / 19:47:52 / cg"
 !
@@ -2142,10 +2142,10 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassList.st,v 1.93 2015-03-27 16:19:41 vrany Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassList.st,v 1.93 2015-03-27 16:19:41 vrany Exp $'
+    ^ '$Header$'
 ! !