--- a/Cursor.st	Thu Dec 02 17:40:54 1999 +0100
+++ b/Cursor.st	Thu Dec 02 17:41:53 1999 +0100
@@ -2769,7 +2769,8 @@
     shape notNil ifTrue:[
         id := aDevice createCursorShape:shape.
         id isNil ifTrue:[
-            'Cursor [warning]: no cursor with shape:' errorPrint. shape errorPrintCR.
+            'Cursor [warning]: no cursor with shape:' errorPrint. 
+	    shape errorPrint. ' on device ' errorPrint. aDevice errorPrintCR.
             ^ self
         ].
     ] ifFalse:[
@@ -2882,5 +2883,5 @@
 !Cursor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.77 1999-12-01 20:12:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Cursor.st,v 1.78 1999-12-02 16:41:53 cg Exp $'
 ! !