Index: library/lib/test.tcl
===================================================================
diff -u -rf3cb5afe6aa1b6761b4a9909058f64ff7d64ab92 -rba82e95493711eb36cadc579cfa27cf934120b58
--- library/lib/test.tcl	(.../test.tcl)	(revision f3cb5afe6aa1b6761b4a9909058f64ff7d64ab92)
+++ library/lib/test.tcl	(.../test.tcl)	(revision ba82e95493711eb36cadc579cfa27cf934120b58)
@@ -69,13 +69,14 @@
     }
 
     :public object method new args {
+      set testfile [file rootname [file tail [info script]]]
       if {[info exists :case]} {
 	if {![info exists :ccount(${:case})]} {set :ccount(${:case}) 0}
-	set :name ${:case}.[format %.3d [incr :ccount(${:case})]]
+	set :name $testfile-${:case}.[format %.3d [incr :ccount(${:case})]]
       } else {
-	set :name t.[format %.3d [incr :count]]
+	set :name $testfile-t.[format %.3d [incr :count]]
       }
-      eval :create ${:name} -name ${:name} $args
+      :create ${:name} -name ${:name} {*}$args
     }
 
     :public object method run {} {