--- a/Tools_ClassCategoryList.st	Tue Jan 24 17:27:21 2006 +0100
+++ b/Tools_ClassCategoryList.st	Tue Jan 24 17:55:41 2006 +0100
@@ -413,12 +413,8 @@
     (droppedClasses contains:[:aClass | aClass isPrivate not]) ifFalse:[^ false].
 
     cat := self categoryAtTargetPointOf:aDropContext.
-    cat isNil ifTrue:[
-        ^ false
-    ].
-    cat = '* obsolete *' ifTrue:[
-        ^  false
-    ].
+    cat isNil ifTrue:[ ^ false ].
+    cat = '* obsolete *' ifTrue:[ ^  false ].
 
     (droppedClasses contains:[:aClass | aClass category ~= cat]) ifFalse:[^ false].
     ^ true.
@@ -783,5 +779,5 @@
 !ClassCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.9 2006-01-10 13:18:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassCategoryList.st,v 1.10 2006-01-24 16:54:53 cg Exp $'
 ! !