--- a/TextCollector.st	Sun Oct 26 21:16:59 2008 +0100
+++ b/TextCollector.st	Tue Oct 28 14:24:26 2008 +0100
@@ -813,12 +813,19 @@
     "
      Transcript clear
     "
+!
+
+flash
+    "make sure everything is visible, before flashing"
+
+    self endEntry.
+    super flash.
 ! !
 
 !TextCollector class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.93 2008-09-22 11:16:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/TextCollector.st,v 1.94 2008-10-28 13:24:26 cg Exp $'
 ! !
 
 TextCollector initialize!