--- a/Tools__MethodList.st Thu Feb 19 13:19:57 2015 +0100
+++ b/Tools__MethodList.st Thu Feb 19 13:31:01 2015 +0100
@@ -1085,7 +1085,6 @@
|categoryIsExtensionsPseudoCategory|
categoryIsExtensionsPseudoCategory := (cat = nameListEntryForExtensions).
-Transcript showCR:sel.
(cls isNil and:[ cat isNil and:[ sel isNil ] ]) ifTrue:[
enforceClassAndProtocolInList := true
] ifFalse:[
@@ -1912,10 +1911,10 @@
!MethodList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.114 2015-02-19 12:15:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.115 2015-02-19 12:31:01 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.114 2015-02-19 12:15:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodList.st,v 1.115 2015-02-19 12:31:01 cg Exp $'
! !