Index: tests/info-method.xotcl
===================================================================
diff -u -red15b5be7e88cbbcdf6121f3869722dbc354d76f -r7f114dad2b4deb00431c895e511118c3c675cb07
--- tests/info-method.xotcl	(.../info-method.xotcl)	(revision ed15b5be7e88cbbcdf6121f3869722dbc354d76f)
+++ tests/info-method.xotcl	(.../info-method.xotcl)	(revision 7f114dad2b4deb00431c895e511118c3c675cb07)
@@ -50,7 +50,7 @@
 ? {Class info method parameter method} \
     {name arguments body -precondition -postcondition}
 ? {Object info method parameter alias} \
-    {-objscope:switch methodName cmd}
+    {-nonleaf:switch -objscope:switch methodName cmd}
 # raises currently an error
 ? {catch {C info method parameter a}} 1