From e6aee3fd2f23e61877aa28fa522eb81c57c7165d Mon Sep 17 00:00:00 2001
From: fvogel <fvogelnew1@free.fr>
Date: Sat, 28 Oct 2017 13:51:40 +0000
Subject: Fix [ce62c81bae] text-37.1 fails

---
 tests/text.test | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tests/text.test b/tests/text.test
index 57d9e4e..07192e8 100644
--- a/tests/text.test
+++ b/tests/text.test
@@ -7366,6 +7366,7 @@ test text-37.1 "bug #dd9667635d: text anchor not set" -setup {
     interp bgerror {} returnerror-37.1
     proc returnerror-37.1 {m opts} {set ::my_error $m}
     destroy .t
+    set ::my_error {}
     pack [text .t]
 } -body {
     .t insert end "Hello world!"
-- 
cgit v0.12