--- a/Tools__MethodCategoryList.st	Fri Jun 15 02:40:36 2018 +0200
+++ b/Tools__MethodCategoryList.st	Fri Jun 15 02:40:41 2018 +0200
@@ -862,7 +862,7 @@
 categoryAtTargetPointOf:aDropContext
     |p methodListView lineNr cat|
 
-    p := aDropContext targetPoint.
+    p := aDropContext targetPointInDeviceCoordinates.
 
     methodListView := aDropContext targetWidget.
 
@@ -874,6 +874,8 @@
     cat = self class nameListEntryForALL ifTrue:[^ nil].
 
     ^ cat
+
+    "Modified: / 15-06-2018 / 02:27:05 / Claus Gittinger"
 !
 
 doDropContext:aDropContext