Index: library/lib/test.xotcl
===================================================================
diff -u -r666f7ad2cb2562f3d62fc9aea54efb9b0826f6b0 -r04747ba752ca2b7a4f30586348e39ab04f190da9
--- library/lib/test.xotcl	(.../test.xotcl)	(revision 666f7ad2cb2562f3d62fc9aea54efb9b0826f6b0)
+++ library/lib/test.xotcl	(.../test.xotcl)	(revision 04747ba752ca2b7a4f30586348e39ab04f190da9)
@@ -36,7 +36,7 @@
   } {
     set .count 0
 
-    .method -per-object new args {
+    .method -per-object -public new args {
       if {[info exists .case]} {
 	if {![info exists .ccount(${.case})]} {set .ccount(${.case}) 0}
 	set .name ${.case}.[format %.3d [incr .ccount(${.case})]]
@@ -46,20 +46,20 @@
       eval .create ${.name} -name ${.name} $args
     }
 
-    .method -per-object run {} {
+    .method -per-object -public run {} {
       set startTime [clock clicks -milliseconds]
       foreach example [lsort [.info instances -closure]] {
 	$example run
       }
       puts stderr "Total Time: [expr {[clock clicks -milliseconds]-$startTime}] ms"
     }
 
-    .method call {msg cmd} {
+    .method -public call {msg cmd} {
       if {[.verbose]} {puts stderr "$msg: $cmd"}
       namespace eval [set .namespace] $cmd
     }
    
-    .method run args {
+    .method -public run args {
       if {[info exists .pre]} {.call "pre" ${.pre}}
       if {![info exists .msg]} {set .msg ${.cmd}}
       set r [.call "run" ${.cmd}]