Index: tests/protected.tcl
===================================================================
diff -u -rf3cb5afe6aa1b6761b4a9909058f64ff7d64ab92 -r29ea21bd3f28ea7effaca6039e59a8a3499f8fd8
--- tests/protected.tcl	(.../protected.tcl)	(revision f3cb5afe6aa1b6761b4a9909058f64ff7d64ab92)
+++ tests/protected.tcl	(.../protected.tcl)	(revision 29ea21bd3f28ea7effaca6039e59a8a3499f8fd8)
@@ -5,13 +5,13 @@
 Test parameter count 1
 
 Class create C {
-  :alias SET ::set
-  :method foo {} {return [current method]}
-  :method bar {} {return [current method]}
-  :method bar-foo {} {
+  :public alias SET ::set
+  :public method foo {} {return [current method]}
+  :public method bar {} {return [current method]}
+  :public method bar-foo {} {
     c1 foo
   }
-  :method bar-SET {} {
+  :public method bar-SET {} {
     c1 SET x 1
   }
 }