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