Index: tests/info-method.xotcl
===================================================================
diff -u -r1f0231a5c7cbb8dfef4eaf78335c9ad571863660 -r04747ba752ca2b7a4f30586348e39ab04f190da9
--- tests/info-method.xotcl	(.../info-method.xotcl)	(revision 1f0231a5c7cbb8dfef4eaf78335c9ad571863660)
+++ tests/info-method.xotcl	(.../info-method.xotcl)	(revision 04747ba752ca2b7a4f30586348e39ab04f190da9)
@@ -35,9 +35,10 @@
 }
 C create c1
 
-? {lsort [C info methods]} "a addOne m m-with-assertions s"
-foreach m [lsort [C info methods]] {
-  ? {lsort [c1 info callable $m]} $m
+? {lsort [C info methods -callprotection all]} "a addOne m m-with-assertions s"
+? {lsort [C info methods]} "a addOne s"
+foreach m [lsort [C info methods -callprotection all]] {
+  ? [subst -nocommands {lsort [c1 info callable $m]}] $m
 }
 ? {C info method definition a} "::C alias a ::set"
 ? {c1 info callable -which a} "::C alias a ::set"