1 files changed, 3 insertions, 0 deletions
diff --git a/tests/image.test b/tests/image.test
index e60120c..861b086 100644
--- a/tests/image.test
+++ b/tests/image.test
@@ -71,6 +71,9 @@ test image-1.7 {Tk_ImageCmd procedure, "create" option} -constraints {
         vwait x
     }
     after cancel timer
+    if {[lindex $x end] eq "timeout"} {
+       return [lreplace $x end end]
+    }
     return $x
 } -cleanup {
     imageCleanup