Index: apps/utils/source-doc-beautifier.tcl
===================================================================
diff -u -r365c9cbbf5de28b8e33b47e2456d1a6b963dba03 -r09360883738f214c19404032888a48c4f937a16c
--- apps/utils/source-doc-beautifier.tcl	(.../source-doc-beautifier.tcl)	(revision 365c9cbbf5de28b8e33b47e2456d1a6b963dba03)
+++ apps/utils/source-doc-beautifier.tcl	(.../source-doc-beautifier.tcl)	(revision 09360883738f214c19404032888a48c4f937a16c)
@@ -12,26 +12,27 @@
 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] {
       append cmd $l \n
       if {[info complete $cmd]} then {
+	set w0 ""
 	regexp {^\s*(\S+)\s*} $cmd _ w0
 	#set w0 [lindex $cmd 0]
 	if { ($w0 eq "?" && [llength $cmd] == 3) || 
@@ -47,13 +48,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
   }