Index: tests/protected.tcl
===================================================================
diff -u -r89b5047e54e47a88a7de75d8523a07ffa5743407 -r6166d76909482a0a4c1296cb959462d71c688922
--- tests/protected.tcl	(.../protected.tcl)	(revision 89b5047e54e47a88a7de75d8523a07ffa5743407)
+++ tests/protected.tcl	(.../protected.tcl)	(revision 6166d76909482a0a4c1296cb959462d71c688922)
@@ -6,8 +6,8 @@
 
 Class create C {
   :alias SET ::set
-  :method foo {} {return [current proc]}
-  :method bar {} {return [current proc]}
+  :method foo {} {return [current method]}
+  :method bar {} {return [current method]}
   :method bar-foo {} {
     c1 foo
   }
@@ -62,7 +62,7 @@
 ? {c2 bar-foo} {foo}
 
 # define a protected method
-C protected method foo {} {return [current proc]}
+C protected method foo {} {return [current method]}
 ? {::nx::core::methodproperty C SET protected} 0
 ? {c1 SET x 3} 3
 ? {::nx::core::dispatch c1 SET x 4} {4}