Index: tests/info-method.tcl
===================================================================
diff -u -r18d4d9c1a99310c3fb9b2f2bed03e9d59fb30d30 -rc5d841d4cd001b85e95e01202b4fc0afe75df6a8
--- tests/info-method.tcl	(.../info-method.tcl)	(revision 18d4d9c1a99310c3fb9b2f2bed03e9d59fb30d30)
+++ tests/info-method.tcl	(.../info-method.tcl)	(revision c5d841d4cd001b85e95e01202b4fc0afe75df6a8)
@@ -50,7 +50,7 @@
   ? {nx::Class info method parameter method} \
       {name arguments body -precondition -postcondition}
   ? {nx::Object info method parameter alias} \
-      {-nonleaf:switch -objscope:switch methodName cmd}
+      {methodName {-frame default} cmd}
   # raises currently an error
   ? {catch {C info method parameter a}} 1