--- a/Tools__ObjectModuleInformation.st	Thu Mar 21 18:30:30 2013 +0100
+++ b/Tools__ObjectModuleInformation.st	Thu Mar 21 18:35:55 2013 +0100
@@ -1197,7 +1197,8 @@
         classes := moduleInfoOrHandle classNames collect:[:nm | Smalltalk classNamed:nm].
         UserPreferences systemBrowserClass 
             browseClasses:classes
-            label:(resources string:'Classes in %1' with:moduleInfoOrHandle libraryName)
+            label:(resources string:'Classes in %1' with:moduleInfoOrHandle libraryName).
+        "/ Q: what about extensions ?
     ] ifFalse:[
         moduleInfoOrHandle isMethodHandle ifTrue:[
             method := moduleInfoOrHandle method.