--- a/Tools__ObjectModuleInformation.st Tue Jun 04 12:31:15 2013 +0200
+++ b/Tools__ObjectModuleInformation.st Tue Jun 04 12:59:34 2013 +0200
@@ -1486,9 +1486,9 @@
showOthers ifTrue:[
|otherObjects otherObjectNames|
- otherObjects := (allObjects select:[:h | (h isFunctionObjectHandle
+ otherObjects := (allObjects reject:[:h | (h isFunctionObjectHandle
or:[h isMethodHandle
- or:[h isClassLibHandle]]) not]) asArray.
+ or:[h isClassLibHandle]])]) asArray.
otherObjectNames := otherObjects collect:[:entry | entry pathName].
listOfModuleNames addAll:otherObjectNames.
handles addAll:otherObjects.