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