--- a/Tools_ClassList.st	Wed Sep 13 11:47:50 2006 +0200
+++ b/Tools_ClassList.st	Wed Sep 13 11:47:54 2006 +0200
@@ -894,14 +894,15 @@
     |methods cls|
 
     methods := aDropContext dropObjects collect:[:obj | obj theObject].
-
-    (methods contains:[:aMethod | aMethod isMethod not]) ifTrue:[^ false].
+    (methods conform:[:aMethod | aMethod isMethod]) ifFalse:[^ false].
 
     cls := self classAtTargetPointOf:aDropContext.
     cls isNil ifTrue:[^ false].
 
     (methods contains:[:aMethod | aMethod mclass ~= cls]) ifFalse:[^ false].
     ^ true
+
+    "Modified: / 13-09-2006 / 11:44:07 / cg"
 !
 
 classAtTargetPointOf:aDropContext
@@ -922,7 +923,7 @@
     |cls methods|
 
     methods := aDropContext dropObjects collect:[:aDropObject | aDropObject theObject].
-    (methods contains:[:something | something isMethod not]) ifTrue:[^ self].
+    (methods conform:[:something | something isMethod]) ifFalse:[^ self].
 
     cls := self classAtTargetPointOf:aDropContext.
     methods first mclass isMeta ifTrue:[
@@ -932,6 +933,8 @@
     cls notNil ifTrue:[
         self masterApplication moveMethods:methods toClass:cls.
     ].
+
+    "Modified: / 13-09-2006 / 11:43:02 / cg"
 ! !
 
 !ClassList methodsFor:'generators'!
@@ -1610,5 +1613,5 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.20 2006-08-29 11:18:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.21 2006-09-13 09:47:54 cg Exp $'
 ! !