--- a/Cursor.st	Fri Mar 05 12:25:00 1999 +0100
+++ b/Cursor.st	Fri Mar 05 14:49:25 1999 +0100
@@ -2041,17 +2041,20 @@
     "return a execute cursor - (the default here is a wait-cursor)"
 
     XeqCursor isNil ifTrue:[
-	XeqCursor := self shape:#execute on:Display.
+        XeqCursor := self shape:#execute on:Display.
+        XeqCursor isNil ifTrue:[
+            XeqCursor := self shape:#wait on:Display.
+        ]
     ].
     XeqCursor notNil ifTrue:[
-	^ XeqCursor
+        ^ XeqCursor
     ].
 
     ^ self wait
 
     "
      Cursor execute
-	showWhile:[ Delay waitForSeconds:3 ]
+        showWhile:[ Delay waitForSeconds:3 ]
     "
 
     "Modified: 23.10.1997 / 00:26:19 / cg"
@@ -2858,6 +2861,6 @@
 !Cursor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.64 1999-02-25 23:40:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.65 1999-03-05 13:49:25 cg Exp $'
 ! !
 Cursor initialize!