Index: apps/utils/source-doc-beautifier.tcl
===================================================================
diff -u -rcda7ea7bc61592e10d98d1ac47cfc6c547a81ab7 -r09360883738f214c19404032888a48c4f937a16c
--- apps/utils/source-doc-beautifier.tcl	(.../source-doc-beautifier.tcl)	(revision cda7ea7bc61592e10d98d1ac47cfc6c547a81ab7)
+++ apps/utils/source-doc-beautifier.tcl	(.../source-doc-beautifier.tcl)	(revision 09360883738f214c19404032888a48c4f937a16c)
@@ -32,6 +32,7 @@
     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) ||