--- a/Tools_MethodCategoryList.st	Tue Jan 24 17:27:21 2006 +0100
+++ b/Tools_MethodCategoryList.st	Tue Jan 24 17:55:41 2006 +0100
@@ -663,9 +663,10 @@
     (methods contains:[:aMethod | aMethod isMethod not]) ifTrue:[^ false].
 
     cat := self categoryAtTargetPointOf:aDropContext.
+    cat isNil ifTrue:[^ false].
 
     (methods contains:[:aMethod | aMethod category ~= cat]) ifFalse:[^ false].
-    ^ cat notNil
+    ^ true
 !
 
 categoryAtTargetPointOf:aDropContext
@@ -1259,5 +1260,5 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.7 2006-01-10 13:32:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.8 2006-01-24 16:55:41 cg Exp $'
 ! !