Index: library/tcltest/tcltest.tcl
===================================================================
RCS file: /cvsroot/tcl/tcl/library/tcltest/tcltest.tcl,v
retrieving revision 1.103
diff -u -r1.103 tcltest.tcl
--- library/tcltest/tcltest.tcl	13 Dec 2007 15:26:03 -0000	1.103
+++ library/tcltest/tcltest.tcl	5 Feb 2009 23:25:34 -0000
@@ -3331,7 +3331,7 @@
 		    -option value ?-option value ...?"
 	    return
 	}
-	if {[catch {eval Configure $::env(TCLTEST_OPTIONS)} msg]} {
+	if {[catch {eval [linsert $::env(TCLTEST_OPTIONS) 0 Configure]} msg]} {
 	    Warn "invalid TCLTEST_OPTIONS: \"$options\":\n  $msg"
 	    return
 	}
