1 files changed, 5 insertions, 1 deletions
diff --git a/tests/defs b/tests/defs
index cde64fc..a7037ee 100644
--- a/tests/defs
+++ b/tests/defs
@@ -9,7 +9,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: defs,v 1.3 1998/12/04 04:19:12 hershey Exp $
+# RCS: @(#) $Id: defs,v 1.4 1999/04/16 01:25:55 stanton Exp $
 
 if {![info exists VERBOSE]} {
     set VERBOSE 0
@@ -246,6 +246,10 @@ proc test {name description script answer args} {
 	puts stdout "$answer"
 	puts stdout "---- $name FAILED" 
     }
+    if {[string compare $::tcl_platform(platform) macintosh] == 0} {
+        # Force the text to be drawn even if the tests are not updating.
+        update idletasks
+    }
 }
 
 proc dotests {file args} {