diff --git a/tests/wm.test b/tests/wm.test
index cc8792a03..0ea8c2e0b 100644
--- a/tests/wm.test
+++ b/tests/wm.test
@@ -101,7 +101,7 @@ testConstraint failsOnXQuarz [expr {$tcl_platform(os) ne "Darwin" || [tk windowi
 #
 
 proc raiseDelay {} {
-    after 250;
+    after 500;
     update idletasks
     update
 }