--- a/TextView.st	Wed Feb 19 13:12:13 1997 +0100
+++ b/TextView.st	Thu Feb 20 12:51:40 1997 +0100
@@ -1988,20 +1988,16 @@
 
     |savedCursor|
 
-    self beep.
-
-"
-    uncomment if you want a CROSS cursor to be shown for a while ..
-"
-
-" "
     savedCursor := cursor.
-    self cursor:(Cursor cross).
-    Processor activeProcess millisecondDelay:300.
-    self cursor:savedCursor
-" "
-
-    "Modified: 28.5.1996 / 16:58:57 / cg"
+    [
+        self cursor:(Cursor cross).
+        self beep.
+        Processor activeProcess millisecondDelay:300.
+    ] valueNowOrOnUnwindDo:[
+        self cursor:savedCursor
+    ]
+
+    "Modified: 20.2.1997 / 12:49:27 / cg"
 ! !
 
 !TextView methodsFor:'selections'!
@@ -2426,5 +2422,5 @@
 !TextView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.83 1997-02-14 16:09:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextView.st,v 1.84 1997-02-20 11:51:40 cg Exp $'
 ! !