--- a/Tools_ClassList.st	Tue Jan 24 17:27:21 2006 +0100
+++ b/Tools_ClassList.st	Tue Jan 24 17:55:41 2006 +0100
@@ -884,9 +884,9 @@
     (methods contains:[:aMethod | aMethod isMethod not]) ifTrue:[^ false].
 
     cls := self classAtTargetPointOf:aDropContext.
+    cls isNil ifTrue:[^ false].
 
     (methods contains:[:aMethod | aMethod mclass ~= cls]) ifFalse:[^ false].
-
     ^ true
 !
 
@@ -1597,5 +1597,5 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.9 2006-01-10 13:18:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.10 2006-01-24 16:55:04 cg Exp $'
 ! !