--- a/Cursor.st	Mon Jul 11 15:23:09 2005 +0200
+++ b/Cursor.st	Tue Jul 12 15:58:51 2005 +0200
@@ -3107,6 +3107,10 @@
     sourceForm := sourceForm copy.
     maskForm := maskForm copy.
     device := cursorId := nil
+!
+
+postDeepCopy
+    device := cursorId := nil
 ! !
 
 !Cursor methodsFor:'creating a device cursor'!
@@ -3338,7 +3342,7 @@
 !Cursor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.102 2004-09-06 17:56:20 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.103 2005-07-12 13:58:44 cg Exp $'
 ! !
 
 Cursor initialize!