--- 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.