Index: library/lib/test.tcl
===================================================================
diff -u -rf93a860bacabe371e1f01bd3f3841015c6b14a21 -rd168a26bce713de8daa5bbe79d740926e961c5bc
--- library/lib/test.tcl	(.../test.tcl)	(revision f93a860bacabe371e1f01bd3f3841015c6b14a21)
+++ library/lib/test.tcl	(.../test.tcl)	(revision d168a26bce713de8daa5bbe79d740926e961c5bc)
@@ -34,7 +34,7 @@
 
     set :count 0
 
-    :public object method case {name arg:optional} {
+    :public class-object method case {name arg:optional} {
       #
       # Experimental version of Test case, which (1) accepts test case as argument
       # and (2) destroys all created objects on exit (auto cleanup)
@@ -58,7 +58,7 @@
       }
     }
 
-    :public object method parameter {name value:optional} {
+    :public class-object method parameter {name value:optional} {
       if {[info exists value]} {
         #[[current] slot $name] default $value
 	#:slot $name default $value
@@ -69,7 +69,7 @@
       }
     }
 
-    :public object method new args {
+    :public class-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}
@@ -80,7 +80,7 @@
       :create ${:name} -name ${:name} {*}$args
     }
 
-    :public object method run {} {
+    :public class-object method run {} {
       set startTime [clock clicks -milliseconds]
       foreach example [lsort [:info instances -closure]] {
 	$example run