1 files changed, 4 insertions, 3 deletions
diff --git a/tests/listObj.test b/tests/listObj.test
index 2e8ae17..8b24aa9 100644
--- a/tests/listObj.test
+++ b/tests/listObj.test
@@ -10,14 +10,15 @@
 #
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
-#
-# RCS: @(#) $Id: listObj.test,v 1.9 2010/03/18 20:34:48 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
     namespace import -force ::tcltest::*
 }
 
+::tcltest::loadTestedCommands
+catch [list package require -exact Tcltest [info patchlevel]]
+
 testConstraint testobj [llength [info commands testobj]]
 
 catch {unset x}
@@ -201,4 +202,4 @@ return
 
 # Local Variables:
 # mode: tcl
-# End:
-\ No newline at end of file
+# End: