Index: tests/info-method.tcl
===================================================================
diff -u -rfdab3b9e05d21cb92835b9128193c7ba329d583d -r18d4d9c1a99310c3fb9b2f2bed03e9d59fb30d30
--- tests/info-method.tcl	(.../info-method.tcl)	(revision fdab3b9e05d21cb92835b9128193c7ba329d583d)
+++ tests/info-method.tcl	(.../info-method.tcl)	(revision 18d4d9c1a99310c3fb9b2f2bed03e9d59fb30d30)
@@ -1,5 +1,5 @@
 package req nx
-::nx::configure defaultMethodProtection false
+::nx::configure defaultMethodCallProtection false
 package require nx::test
 
 Test case base {
@@ -81,11 +81,11 @@
   ? {lsort [C info lookup methods -source baseclasses]} $class_methods
   ? {lsort [c1 info lookup methods -source baseclasses]} $object_methods
 
-  ::nx::configure defaultMethodProtection true
+  ::nx::configure defaultMethodCallProtection true
   #
-  # the subsequent tests assume defaultMethodProtection == true
+  # the subsequent tests assume defaultMethodCallProtection == true
   #
-  ? {::nx::configure defaultMethodProtection} true
+  ? {::nx::configure defaultMethodCallProtection} true
   
   ::nx::Class create MC -superclass ::nx::Class {
     :protected method bar1 args {;}
@@ -99,13 +99,13 @@
   ? {lsort [MC info methods -methodtype scripted -callprotection all]} "bar1 bar2 foo"
   
 
-  ::nsf::methodproperty ::MC foo protected true
-  ::nsf::methodproperty ::MC bar2 protected false
+  ::nsf::methodproperty ::MC foo call-protected true
+  ::nsf::methodproperty ::MC bar2 call-protected false
   
   ? {lsort [MC info methods -methodtype scripted -callprotection public]} "bar2"
   ? {lsort [MC info methods -methodtype scripted -callprotection protected]} "bar1 foo"
   ? {lsort [MC info methods -methodtype scripted -callprotection all]} "bar1 bar2 foo"
-  ::nx::configure defaultMethodProtection false
+  ::nx::configure defaultMethodCallProtection false
 }
 
 Test case subobj {