1 files changed, 1 insertions, 1 deletions
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 {}