Index: apps/utils/source-doc-beautifier.tcl
===================================================================
diff -u -r365c9cbbf5de28b8e33b47e2456d1a6b963dba03 -rcda7ea7bc61592e10d98d1ac47cfc6c547a81ab7
--- apps/utils/source-doc-beautifier.tcl	(.../source-doc-beautifier.tcl)	(revision 365c9cbbf5de28b8e33b47e2456d1a6b963dba03)
+++ apps/utils/source-doc-beautifier.tcl	(.../source-doc-beautifier.tcl)	(revision cda7ea7bc61592e10d98d1ac47cfc6c547a81ab7)
@@ -12,21 +12,21 @@
 nx::Object create output {
   set :state ""
   set :text ""
-  :public method line {kind string} {
+  :public object method line {kind string} {
     if {${:state} ne $kind} {
       if {${:state} ne ""} {:flush}
       set :state $kind
       set :text ""
     }
     append :text $string \n
   }
-  :public method flush {} {
+  :public object method flush {} {
     set trimmed [string trim ${:text} \n]
     if {$trimmed ne ""} {
       :${:state} $trimmed
     }
   }
-  :public method postprocess {block} {
+  :public object method postprocess {block} {
     set result ""
     set cmd ""
     foreach l [split $block \n] {
@@ -47,13 +47,13 @@
     }
     return [string trimright $result \n]
   }
-  :public method prog {block} {
+  :public object method prog {block} {
     puts $::out {[source,tcl]}
     puts $::out --------------------------------------------------
     puts $::out [:postprocess $block]
     puts $::out --------------------------------------------------\n
   }
-  :public method doc {block} {
+  :public object method doc {block} {
     #puts $::out "=====doc\n$block\n====="
     puts $::out $block\n
   }