Index: library/lib/test.tcl
===================================================================
diff -u -r18122dd21b99cf0d5b4cd01635048641a23aa051 -rf93a860bacabe371e1f01bd3f3841015c6b14a21
--- library/lib/test.tcl	(.../test.tcl)	(revision 18122dd21b99cf0d5b4cd01635048641a23aa051)
+++ library/lib/test.tcl	(.../test.tcl)	(revision f93a860bacabe371e1f01bd3f3841015c6b14a21)
@@ -43,7 +43,7 @@
       # from global evals. So, this approach is not suitable for all test
       # (but for most).
       #
-      # Current limitations: just for xotcl2, no method/mixin cleanup/var cleanup
+      # Current limitations: just for nx::Objects, no method/mixin cleanup/var cleanup
       #
       set :case $name
       if {[info exists arg]} {
@@ -73,9 +73,9 @@
       set testfile [file rootname [file tail [info script]]]
       if {[info exists :case]} {
 	if {![info exists :ccount(${:case})]} {set :ccount(${:case}) 0}
-	set :name $testfile-${:case}.[format %.3d [incr :ccount(${:case})]]
+	set :name $testfile/${:case}.[format %.3d [incr :ccount(${:case})]]
       } else {
-	set :name $testfile-t.[format %.3d [incr :count]]
+	set :name $testfile/t.[format %.3d [incr :count]]
       }
       :create ${:name} -name ${:name} {*}$args
     }