Index: tests/info-method.xotcl
===================================================================
diff -u -rbf9bae94d157de9bbd4c398f6a3a9a4d93626025 -r142687efa93af981936db61ecfde494d8f269b0a
--- tests/info-method.xotcl	(.../info-method.xotcl)	(revision bf9bae94d157de9bbd4c398f6a3a9a4d93626025)
+++ tests/info-method.xotcl	(.../info-method.xotcl)	(revision 142687efa93af981936db61ecfde494d8f269b0a)
@@ -59,9 +59,9 @@
     {::C method m-with-assertions {} {return proc-[self proc]} -precondition 1 -postcondition 2}
 ? {C info method parameter m} {x}
 ? {Class info method parameter method} \
-    {{-per-object:switch 0} {-public:switch 0} {-protected:switch 0} name arguments body -precondition -postcondition}
+    {{-per-object:switch 0} name arguments body -precondition -postcondition}
 ? {Object info method parameter alias} \
-    {{-objscope:switch 0} {-protected:switch 0} methodName cmd}
+    {{-objscope:switch 0} methodName cmd}
 # raises currently an error
 ? {catch {C info method parameter a}} 1