--- a/Tools_ClassCategoryList.st	Wed Sep 13 11:39:30 2006 +0200
+++ b/Tools_ClassCategoryList.st	Wed Sep 13 11:47:48 2006 +0200
@@ -416,7 +416,7 @@
     |cat droppedClasses|
 
     droppedClasses := aDropContext dropObjects collect:[:obj | obj theObject].
-    (droppedClasses contains:[:aClass | aClass isClass not]) ifTrue:[^ false].
+    (droppedClasses conform:[:aClass | aClass isClass]) ifFalse:[^ false].
     (droppedClasses contains:[:aClass | aClass isPrivate not]) ifFalse:[^ false].
 
     cat := self categoryAtTargetPointOf:aDropContext.
@@ -425,6 +425,8 @@
 
     (droppedClasses contains:[:aClass | aClass category ~= cat]) ifFalse:[^ false].
     ^ true.
+
+    "Modified: / 13-09-2006 / 11:42:22 / cg"
 !
 
 categoryAtTargetPointOf:aDropContext
@@ -450,12 +452,14 @@
     |cat droppedClasses|
 
     droppedClasses := aDropContext dropObjects collect:[:aDropObject | aDropObject theObject].
-    (droppedClasses contains:[:something | something isClass not]) ifTrue:[^ self].
+    (droppedClasses conform:[:something | something isClass]) ifFalse:[^ self].
 
     cat := self categoryAtTargetPointOf:aDropContext.
     cat notNil ifTrue:[
         self masterApplication moveClasses:droppedClasses toCategory:cat.
     ].
+
+    "Modified: / 13-09-2006 / 11:42:37 / cg"
 ! !
 
 !ClassCategoryList methodsFor:'generators'!
@@ -802,5 +806,5 @@
 !ClassCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.15 2006-08-24 21:13:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.16 2006-09-13 09:47:48 cg Exp $'
 ! !