--- a/Cursor.st	Sat Feb 21 17:05:35 1998 +0100
+++ b/Cursor.st	Sat Feb 21 17:08:20 1998 +0100
@@ -19,7 +19,7 @@
 		SquareCursor FourWayCursor UpDownArrowCursor LeftRightArrowCursor
 		ThumbsUpCursor ThumbsDownCursor ReadCursor WriteCursor XeqCursor
 		StopCursor EyeCursor BlankCursor MarkerCursor UpCursor DownCursor
-		LeftCursor RightCursor XMarkerCursor CaretCursor'
+		LeftCursor RightCursor XMarkerCursor CaretCursor UpRightHandCursor'
 	poolDictionaries:''
 	category:'Graphics-Support'
 !
@@ -1791,7 +1791,10 @@
     "return a hand cursor"
 
     HandCursor isNil ifTrue:[
-        HandCursor := self shape:#upRightHand on:Display
+        HandCursor := self shape:#upRightHand on:Display.
+	HandCursor isNil ifTrue:[
+	    HandCursor := self normal.
+	]
     ].
     ^ HandCursor
 
@@ -2120,7 +2123,13 @@
 upRightHand
     "return an up-right-hand cursor"
 
-    ^ self shape:#upRightHand
+    UpRightHandCursor isNil ifTrue:[
+	UpRightHandCursor := self shape:#upRightHand on:Display.
+	UpRightHandCursor isNil ifTrue:[
+	    UpRightHandCursor := self normal
+	]
+    ].
+    ^ UpRightHandCursor
 
     "
      Cursor upRightHand
@@ -2529,6 +2538,6 @@
 !Cursor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.55 1997-10-23 14:44:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.56 1998-02-21 16:08:20 cg Exp $'
 ! !
 Cursor initialize!