1 files changed, 1 insertions, 3 deletions
diff --git a/tests/raise.test b/tests/raise.test
index b6890e9..2e9e2c6 100644
--- a/tests/raise.test
+++ b/tests/raise.test
@@ -17,9 +17,7 @@ namespace import -force tcltest::test
 # make it easy to detect differences in order.
 
 proc raise_setup {} {
-    foreach i [winfo child .raise] {
-	        destroy $i
-        }
+    destroy {*}[winfo children .raise]
     update idletasks
     foreach i {a b c d e} {
 	    label .raise.$i -text $i -relief raised -bd 2