--- a/Tools__ClassList.st	Fri Jun 15 02:40:30 2018 +0200
+++ b/Tools__ClassList.st	Fri Jun 15 02:40:34 2018 +0200
@@ -997,7 +997,7 @@
 classAtTargetPointOf:aDropContext
     |p classListView lineNr cls|
 
-    p := aDropContext targetPoint.
+    p := aDropContext targetPointInDeviceCoordinates.
 
     classListView := aDropContext targetWidget.
 
@@ -1006,6 +1006,8 @@
 
     cls := classList value at:lineNr.
     ^ cls
+
+    "Modified: / 15-06-2018 / 02:26:58 / Claus Gittinger"
 !
 
 doDropContext:aDropContext