Index: apps/utils/source-doc-beautifier.tcl
===================================================================
diff -u -N -r66e3a96062ff0c5083252fa477f9698edd4a9aae -rd3fd0b4d885def5a7cab20ac9cf36907cad86e3c
--- apps/utils/source-doc-beautifier.tcl	(.../source-doc-beautifier.tcl)	(revision 66e3a96062ff0c5083252fa477f9698edd4a9aae)
+++ apps/utils/source-doc-beautifier.tcl	(.../source-doc-beautifier.tcl)	(revision d3fd0b4d885def5a7cab20ac9cf36907cad86e3c)
@@ -38,7 +38,10 @@
 	#set w0 [lindex $cmd 0]
 	if { ($w0 eq "?" && [llength $cmd] == 3) || 
 	     ($w0 eq "!" && [llength $cmd] == 2) } {
-	  append result "% [lindex $cmd 1]\n"
+          set body [lindex $cmd 1]
+          regsub -all -line {^\s*#//.*//\s*$} $body {} body
+          set body [string trim $body]
+	  append result "% $body\n"
 	  set cmdresult [lindex $cmd 2]
 	  if {$cmdresult ne "" && ![string match ::nsf::__* $cmdresult]} {append result $cmdresult \n}
 	} else {
@@ -96,3 +99,9 @@
 }
 
 run {*}$argv
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 2
+#    indent-tabs-mode: nil
+# End: