From 8f6408487495e6e63669e391e3b44ce2e6645c81 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Sun, 1 Jul 2012 10:54:03 +0000
Subject: fix select-5.15 test case [Bug 2441988]

---
 tests/select.test | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/select.test b/tests/select.test
index e4c512d..77bfb2e 100644
--- a/tests/select.test
+++ b/tests/select.test
@@ -628,7 +628,7 @@ test select-5.15 {Tk_GetSelection procedure} -setup {
     set ::bgerrors {}
 } -body {
     proc ::bgerror msg {lappend ::bgerrors $msg}
-    selection handle .f1 ERROR errHandler
+    selection handle -type ERROR .f1 errHandler
     list [catch {selection get ERROR} msg] $msg [update] {*}$::bgerrors
 } -cleanup {
     rename ::bgerror {}
-- 
cgit v0.12