Index: tests/forwardtest.tcl
===================================================================
diff -u -r89b5047e54e47a88a7de75d8523a07ffa5743407 -r6166d76909482a0a4c1296cb959462d71c688922
--- tests/forwardtest.tcl	(.../forwardtest.tcl)	(revision 89b5047e54e47a88a7de75d8523a07ffa5743407)
+++ tests/forwardtest.tcl	(.../forwardtest.tcl)	(revision 6166d76909482a0a4c1296cb959462d71c688922)
@@ -162,7 +162,7 @@
 package require nx::serializer
 Test case serializer {
     Object create obj {
-        :method test {} {puts "i am [current proc]"}
+        :method test {} {puts "i am [current method]"}
     }
     set ::a [Serializer deepSerialize obj]
     #puts <<$::a>>
@@ -261,9 +261,9 @@
 Test case num-args {
     Object create obj {
 	:forward f %self [list %argclindex [list a b c]]
-	:method a args {return [list [current proc] $args]}
-	:method b args {return [list [current proc] $args]}
-	:method c args {return [list [current proc] $args]}
+	:method a args {return [list [current method] $args]}
+	:method b args {return [list [current method] $args]}
+	:method c args {return [list [current method] $args]}
     }
     ? {obj f} [list a {}]
     ? {obj f 1 } [list b 1]