Index: library/lib/doc-tools.tcl
===================================================================
diff -u -r89b5047e54e47a88a7de75d8523a07ffa5743407 -r6166d76909482a0a4c1296cb959462d71c688922
--- library/lib/doc-tools.tcl	(.../doc-tools.tcl)	(revision 89b5047e54e47a88a7de75d8523a07ffa5743407)
+++ library/lib/doc-tools.tcl	(.../doc-tools.tcl)	(revision 6166d76909482a0a4c1296cb959462d71c688922)
@@ -798,7 +798,7 @@
       return $rendered
     }
     :method ?var {varname args} {
-      uplevel 1 [list :? -ops [list [::nx::core::current proc] -] \
+      uplevel 1 [list :? -ops [list [::nx::core::current method] -] \
 		     "\[info exists $varname\]" {*}$args]
     } 
     :method ? {
@@ -1051,7 +1051,7 @@
   ::nx::Object create doc  {
 
     :method log {msg} {
-      puts stderr "[current]->[uplevel 1 [list ::nx::core::current proc]]: $msg"
+      puts stderr "[current]->[uplevel 1 [list ::nx::core::current method]]: $msg"
     }
 
     # @method process