--- a/SimpleView.st	Sat Nov 11 16:54:10 1995 +0100
+++ b/SimpleView.st	Mon Nov 13 17:41:57 1995 +0100
@@ -57,7 +57,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.24 1995-11-11 15:52:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.25 1995-11-13 16:41:57 cg Exp $'
 !
 
 documentation
@@ -3859,10 +3859,8 @@
      another view (which is only available once visible), 
      use this to suspend the current process until the receiver is shown."
 
-    Processor activeProcess withPriority:1 do:[
-	[self shown] whileFalse:[
-	    Processor yield
-	]
+    [self shown] whileFalse:[
+	(Delay forSeconds:0.05) wait.
     ].
 
     "does not work: