From bddde2bfc901c841ab29bb1a2ed66008308d73f6 Mon Sep 17 00:00:00 2001
From: ferrieux <ferrieux@users.sourceforge.net>
Date: Fri, 19 Aug 2011 15:24:32 +0000
Subject: [Bug 1774689] async-4.3 sometimes fails. (backport)

---
 ChangeLog        | 1 +
 tests/async.test | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index 4c3d69a..c6dc4a3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,6 +1,7 @@
 2011-08-19  Alexandre Ferrieux  <ferrieux@users.sourceforge.net>
 
 	* generic/tclTest.c: [Bug 2981154] async-4.3 segfault.
+	* tests/async.test:  [Bug 1774689] async-4.3 sometimes fails.
 
 2011-08-18  Jan Nijtmans  <nijtmans@users.sf.net>
 
diff --git a/tests/async.test b/tests/async.test
index f89413f..b369839 100644
--- a/tests/async.test
+++ b/tests/async.test
@@ -175,7 +175,7 @@ proc hang3 {handle} [concat {
     set aresult {Async event not delivered}
     testasync marklater $handle
     set i 0
-} [string repeat {;incr i;} 1500000] {
+} "[string repeat {;incr i;} 1500000]after 10;" {
     return $aresult
 }]
 
-- 
cgit v0.12