--- a/Cursor.st	Mon Mar 04 10:25:20 2002 +0100
+++ b/Cursor.st	Mon Mar 04 15:26:40 2002 +0100
@@ -3173,7 +3173,16 @@
 
 !Cursor methodsFor:'instance release'!
 
-disposed
+executor
+    "redefined to return a lightweight copy 
+     - all we need is the device handle"
+
+    ^ self class basicNew setDevice:device id:cursorId
+
+    "Modified: 20.4.1996 / 23:23:19 / cg"
+!
+
+finalize
     "some Cursor has been collected - tell it to the display"
 
     |id dev|
@@ -3186,15 +3195,6 @@
     ]
 !
 
-executor
-    "redefined to return a lightweight copy 
-     - all we need is the device handle"
-
-    ^ self class basicNew setDevice:device id:cursorId
-
-    "Modified: 20.4.1996 / 23:23:19 / cg"
-!
-
 releaseFromDevice
     "I am no longer available on the device"
 
@@ -3336,6 +3336,6 @@
 !Cursor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.96 2002-02-26 13:06:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.97 2002-03-04 14:26:10 stefan Exp $'
 ! !
 Cursor initialize!