Modified: trunk/base/src/port1.0/tests/test.tcl (119683 => 119684)

--- trunk/base/src/port1.0/tests/test.tcl	2014-05-03 21:59:55 UTC (rev 119683)
+++ trunk/base/src/port1.0/tests/test.tcl	2014-05-03 22:01:47 UTC (rev 119684)
@@ -72,7 +72,7 @@
 
 # Run tests
 if { $test_name ne ""} {
-    set result [eval exec $tcl $test_name $arguments 2>@stderr]
+    set result [exec -ignorestderr $tcl $test_name {*}$arguments]
     puts $result
 
 } else {
@@ -80,7 +80,7 @@
     set test_suite [glob *.test]
 
     foreach test $test_suite {
-        set result [eval exec $tcl $test $arguments 2>@stderr]
+        set result [exec -ignorestderr $tcl $test {*}$arguments]
 	set lastline [lindex [split $result "\n"] end]
 
 	if {[lrange [split $lastline "\t"] 1 1] != "Total"} {