--- a/Tools_MethodCategoryList.st	Sat Jul 20 12:27:15 2013 +0200
+++ b/Tools_MethodCategoryList.st	Sat Jul 20 12:29:10 2013 +0200
@@ -223,6 +223,15 @@
     "Modified: / 27-04-2010 / 16:40:39 / cg"
 ! !
 
+!MethodCategoryList class methodsFor:'queries'!
+
+isPseudoCategory:cat
+    ^ (super isPseudoCategory:cat)
+    or:[ (cat startsWith:'* ')
+        and:[ (cat endsWith:' *')
+        and:[ (cat includesString:'%1') ]]]
+! !
+
 !MethodCategoryList methodsFor:'aspects'!
 
 browserNameList
@@ -800,7 +809,7 @@
     (methods conform:[:aMethod | aMethod isMethod]) ifFalse:[^ false].
 
     cat := self categoryAtTargetPointOf:aDropContext.
-    (cat isNil or:[ self isPseudoCategory:cat]) ifTrue:[^ false].
+    (cat isNil or:[ self class isPseudoCategory:cat]) ifTrue:[^ false].
 
     (methods contains:[:aMethod | aMethod category ~= cat]) ifFalse:[^ false].
     ^ true
@@ -834,17 +843,11 @@
     (methods conform:[:something | something isMethod]) ifFalse:[^ self].
 
     cat := self categoryAtTargetPointOf:aDropContext.
-    (cat notNil and:[(self isPseudoCategory:cat) not]) ifTrue:[
+    (cat notNil and:[(self class isPseudoCategory:cat) not]) ifTrue:[
         self masterApplication moveMethods:methods toProtocol:cat.
     ].
 
     "Modified: / 13-09-2006 / 11:43:23 / cg"
-!
-
-isPseudoCategory:cat
-    ^ (cat startsWith:'* ')
-    and:[ (cat endsWith:' *')
-    and:[ (cat includesString:'%1') ]]
 ! !
 
 !MethodCategoryList methodsFor:'generators'!
@@ -2086,11 +2089,11 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.94 2013-07-20 10:18:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.95 2013-07-20 10:29:10 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.94 2013-07-20 10:18:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.95 2013-07-20 10:29:10 cg Exp $'
 ! !