Index: apps/utils/source-doc-beautifier.tcl
===================================================================
diff -u -r87b4a7adb99175217a9e3690c63e36c7f7694684 -r365c9cbbf5de28b8e33b47e2456d1a6b963dba03
--- apps/utils/source-doc-beautifier.tcl	(.../source-doc-beautifier.tcl)	(revision 87b4a7adb99175217a9e3690c63e36c7f7694684)
+++ apps/utils/source-doc-beautifier.tcl	(.../source-doc-beautifier.tcl)	(revision 365c9cbbf5de28b8e33b47e2456d1a6b963dba03)
@@ -65,16 +65,19 @@
   set outfn [file rootname $file].txt
   set out [open $outfn w]
 
-  foreach line {
+  set title "Listing of $file"
+  regexp {^# = (.+?)\n(.*)$} $content _ title content
+
+  foreach ignorePattern {
     "package req nx::test"
     "package require nx::test"
     "nx::Test parameter count 1"
     "proc ! args.*?"
   } {
-    regsub "$line\s?\n" $content "" content
+    regsub "$ignorePattern\s?\n" $content "" content
   }
 
-  puts $::out "= Listing of $file\n"
+  puts $::out "= $title\n"
   foreach line [split $content \n] {
     if {[regexp {^# ?(.*)$} $line _ comment]} {
       output line doc $comment