Index: library/lib/doc-tools.tcl
===================================================================
diff -u -r84921e055921d2ee9adf2853048cf05b3bf62643 -r5ef627a40a9fdc2d811d194b679cc45bcd369cff
--- library/lib/doc-tools.tcl	(.../doc-tools.tcl)	(revision 84921e055921d2ee9adf2853048cf05b3bf62643)
+++ library/lib/doc-tools.tcl	(.../doc-tools.tcl)	(revision 5ef627a40a9fdc2d811d194b679cc45bcd369cff)
@@ -2461,7 +2461,7 @@
 	      set ::nx::doc::rootns [namespace qualifier $rootmclass]
 	      $rootmclass $sysmeths(-class.create) ${::nx::doc::rootns}::__Tracer
 	      ::nsf::method ${::nx::doc::rootns}::__Tracer \
-		  -public $sysmeths(-class.create) {name args} {
+		  $sysmeths(-class.create) {name args} {
 		    set obj [::nsf::next];
 		    set bundle [dict create]
 		    if {[info commands "::nx::Class"] ne ""} {
@@ -2488,7 +2488,7 @@
 	      if {[info commands "::nx::Object"] ne ""} {
 		$rootmclass $sysmeths(-class.create) ${::nx::doc::rootns}::__ObjTracer
 		::nsf::method ${::nx::doc::rootns}::__ObjTracer \
-		    -public __resolve_method_path {
+		    __resolve_method_path {
 		      -per-object:switch 
 		      -verbose:switch 
 		      path