--- a/Tools__NewSystemBrowser.st Sun Aug 07 21:14:47 2011 +0200
+++ b/Tools__NewSystemBrowser.st Mon Aug 08 00:10:04 2011 +0200
@@ -15373,7 +15373,7 @@
| spec |
spec := old at:1.
classes notEmptyOrNil ifTrue:[
- (classes anySatisfy:[:cls|cls supportsMethodCategories]) ifTrue:[
+ (classes anySatisfy:[:cls|cls theNonMetaclass supportsMethodCategories]) ifTrue:[
spec := #protocolAndMethodListSpec_Both.
] ifFalse:[
spec := #protocolAndMethodListSpec_JustMethodList
@@ -50033,11 +50033,11 @@
!NewSystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1583 2011-08-07 18:39:46 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1584 2011-08-07 22:10:04 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1583 2011-08-07 18:39:46 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1584 2011-08-07 22:10:04 vrany Exp $'
!
version_SVN