Index: apps/utils/source-doc-beautifier.tcl
===================================================================
diff -u -r1617c4f080e984ae2725d8337f994d5e5fa3d4cc -r87b4a7adb99175217a9e3690c63e36c7f7694684
--- apps/utils/source-doc-beautifier.tcl	(.../source-doc-beautifier.tcl)	(revision 1617c4f080e984ae2725d8337f994d5e5fa3d4cc)
+++ apps/utils/source-doc-beautifier.tcl	(.../source-doc-beautifier.tcl)	(revision 87b4a7adb99175217a9e3690c63e36c7f7694684)
@@ -32,7 +32,8 @@
     foreach l [split $block \n] {
       append cmd $l \n
       if {[info complete $cmd]} then {
-	set w0 [lindex $cmd 0]
+	regexp {^\s*(\S+)\s*} $cmd _ w0
+	#set w0 [lindex $cmd 0]
 	if { ($w0 eq "?" && [llength $cmd] == 3) || 
 	     ($w0 eq "!" && [llength $cmd] == 2) } {
 	  append result "% [lindex $cmd 1]\n"