--- a/SimpleView.st	Sat Jul 27 12:40:02 2019 +0200
+++ b/SimpleView.st	Sat Jul 27 12:43:26 2019 +0200
@@ -10738,8 +10738,10 @@
     self fill:(flashColor ? self blackColor).
     messageOrNil notNil ifTrue:[
         gc withForeground:self whiteColor do:[
-            self displayString:messageOrNil centeredAt:(self center).
+            gc displayString:messageOrNil centeredAt:(self center).
         ].
+        "/ wait longer, if there is text, to allow user to read it
+        Delay waitForSeconds:0.5.
     ].
     Delay waitForSeconds:0.1.
     shown ifFalse:[^ self]. 
@@ -10747,7 +10749,7 @@
     self fill:self whiteColor.
     messageOrNil notNil ifTrue:[
         gc withForeground:self blackColor do:[
-            self displayString:messageOrNil centeredAt:(self center).
+            gc displayString:messageOrNil centeredAt:(self center).
         ].
     ].
     Delay waitForSeconds:0.1.