--- a/Tools_MethodCategoryList.st	Wed Sep 13 11:48:01 2006 +0200
+++ b/Tools_MethodCategoryList.st	Wed Sep 13 11:48:04 2006 +0200
@@ -695,14 +695,15 @@
     |cat methods|
 
     methods := aDropContext dropObjects collect:[:obj | obj theObject].
-
-    (methods contains:[:aMethod | aMethod isMethod not]) ifTrue:[^ false].
+    (methods conform:[:aMethod | aMethod isMethod]) ifFalse:[^ false].
 
     cat := self categoryAtTargetPointOf:aDropContext.
     cat isNil ifTrue:[^ false].
 
     (methods contains:[:aMethod | aMethod category ~= cat]) ifFalse:[^ false].
     ^ true
+
+    "Modified: / 13-09-2006 / 11:44:02 / cg"
 !
 
 categoryAtTargetPointOf:aDropContext
@@ -726,12 +727,14 @@
     |cat methods|
 
     methods := aDropContext dropObjects collect:[:aDropObject | aDropObject theObject].
-    (methods contains:[:something | something isMethod not]) ifTrue:[^ self].
+    (methods conform:[:something | something isMethod]) ifFalse:[^ self].
 
     cat := self categoryAtTargetPointOf:aDropContext.
     cat notNil ifTrue:[
         self masterApplication moveMethods:methods toProtocol:cat.
     ].
+
+    "Modified: / 13-09-2006 / 11:43:23 / cg"
 ! !
 
 !MethodCategoryList methodsFor:'generators'!
@@ -1277,5 +1280,5 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.18 2006-08-29 11:18:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.19 2006-09-13 09:48:04 cg Exp $'
 ! !