1 files changed, 3 insertions, 3 deletions
diff --git a/tests/winDde.test b/tests/winDde.test
index 9c777c3..ca50a96 100644
--- a/tests/winDde.test
+++ b/tests/winDde.test
@@ -9,7 +9,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 
-if {[lsearch [namespace children] ::tcltest] == -1} {
+if {"::tcltest" ni [namespace children]} {
     package require tcltest 2
     #tcltest::configure -verbose {pass start}
     namespace import -force ::tcltest::*
@@ -47,7 +47,7 @@ proc createChildProcess { ddeServerName {handler {}}} {
     puts $f {
         # DDE child server -
         #
-	if {[lsearch [namespace children] ::tcltest] == -1} {
+	if {"::tcltest" ni [namespace children]} {
 	    package require tcltest
 	    namespace import -force ::tcltest::*
 	}
@@ -265,7 +265,7 @@ test winDde-7.2 {DDE slave cleanup} -constraints {win dde} -setup {
     dde services TclEval {}
     set s [dde services TclEval {}]
     set m [list [list TclEval dde-interp-7.5]]
-    if {[lsearch -exact $s $m] != -1} {
+    if {$m in $s} {
 	set s
     }
 } -result {}