Index: tests/method-modifiers.tcl
===================================================================
diff -u -r89b5047e54e47a88a7de75d8523a07ffa5743407 -r6166d76909482a0a4c1296cb959462d71c688922
--- tests/method-modifiers.tcl	(.../method-modifiers.tcl)	(revision 89b5047e54e47a88a7de75d8523a07ffa5743407)
+++ tests/method-modifiers.tcl	(.../method-modifiers.tcl)	(revision 6166d76909482a0a4c1296cb959462d71c688922)
@@ -5,9 +5,9 @@
 
 Class create C {
   # methods
-  :method plain_method {} {return [current proc]}
-  :public method public_method {} {return [current proc]}
-  :protected method protected_method {} {return [current proc]}
+  :method plain_method {} {return [current method]}
+  :public method public_method {} {return [current method]}
+  :protected method protected_method {} {return [current method]}
 
   # forwards
   :forward plain_forward %self plain_method
@@ -25,9 +25,9 @@
   :protected alias protected_alias [C info method name protected_method]
   
   # object
-  :object method plain_object_method {} {return [current proc]}
-  :public object method public_object_method {} {return [current proc]}
-  :protected object method protected_object_method {}  {return [current proc]}
+  :object method plain_object_method {} {return [current method]}
+  :public object method public_object_method {} {return [current method]}
+  :protected object method protected_object_method {}  {return [current method]}
   :object forward plain_object_forward %self plain_object_method
   :public object forward public_object_forward %self public_object_method
   :protected object forward protected_object_forward %self protected_object_method
@@ -40,9 +40,9 @@
 }
 C create c1 {
   # methods
-  :method plain_object_method {} {return [current proc]}
-  :public method public_object_method {} {return [current proc]}
-  :protected method protected_object_method {} {return [current proc]}
+  :method plain_object_method {} {return [current method]}
+  :public method public_object_method {} {return [current method]}
+  :protected method protected_object_method {} {return [current method]}
 
   # forwards
   :forward plain_object_forward %self plain_object_method
@@ -92,7 +92,7 @@
   ? {::nx::core::dispatch c2 protected_setter 4} "4"
 }
 
-# class level alias ....TODO: wanted behavior of [current proc]? not "plain_alias"?
+# class level alias ....TODO: wanted behavior of [current method]? not "plain_alias"?
 Test case class-level-alias {
   ? {c2 plain_alias} "plain_method"
   ? {c2 public_alias} "public_method"
@@ -126,7 +126,7 @@
   ? {::nx::core::dispatch C protected_object_setter 4} "4"
 }
 
-# class-object level alias ....TODO: wanted behavior of [current proc]? not "plain_alias"?
+# class-object level alias ....TODO: wanted behavior of [current method]? not "plain_alias"?
 Test case class-object-level-alias {
   ? {C plain_object_alias} "plain_object_method"
   ? {C public_object_alias} "public_object_method"
@@ -159,7 +159,7 @@
 ? {catch {c1 protected_object_setter 3}} 1
 ? {::nx::core::dispatch c1 protected_object_setter 4} "4"
 
-# object level alias ....TODO: wanted behavior of [current proc]? not "plain_alias"?
+# object level alias ....TODO: wanted behavior of [current method]? not "plain_alias"?
 Test case object-level-alias {
   ? {c1 plain_object_alias} "plain_object_method"
   ? {c1 public_object_alias} "public_object_method"