--- a/PseudoV.st	Tue Jan 02 15:49:32 1996 +0100
+++ b/PseudoV.st	Wed Jan 03 15:46:56 1996 +0100
@@ -259,6 +259,7 @@
             cursor := aCursor.
             drawableId notNil ifTrue:[
                 cursor := cursor on:device.
+		cursor isNil ifTrue:[ ^ self].
                 id := cursor id.
                 id isNil ifTrue:[
                     'PSEUDOVIEW: nil cursorId ignored; shape=' errorPrint. cursor shape errorPrintNL.
@@ -1505,5 +1506,5 @@
 !PseudoView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Attic/PseudoV.st,v 1.46 1995-12-15 12:18:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Attic/PseudoV.st,v 1.47 1996-01-03 14:46:17 cg Exp $'
 ! !

--- a/SimpleView.st	Tue Jan 02 15:49:32 1996 +0100
+++ b/SimpleView.st	Wed Jan 03 15:46:56 1996 +0100
@@ -4420,7 +4420,9 @@
 "/            ]
 	].
 
-	cursor := cursor on:device.
+	cursor notNil ifTrue:[
+	    cursor := cursor on:device.
+	].
 
 	self physicalCreate.
 
@@ -5692,6 +5694,6 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.35 1995-12-15 12:19:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.36 1996-01-03 14:46:56 cg Exp $'
 ! !
 SimpleView initialize!