diff -uNr tclx/library/buildhelp.tcl tclx-patched/library/buildhelp.tcl

--- tclx/library/buildhelp.tcl	2001-10-25 02:31:48 +0300

+++ tclx-patched/library/buildhelp.tcl	2002-10-03 14:39:55 +0300

@@ -396,9 +396,24 @@

    global nroffScanCT scriptScanCT nroffHeader

    set fileName [file tail $pathName]

-

    set nroffHeader {}

-   set manPageFH [open $pathName r]

+   set manPageFH [

+		  switch -exact -- [file extension $pathName] {

+		      .bz2 {

+			  open |[concat /bin/bzcat $pathName |& cat] r

+		      }

+		      .gz {

+			  open |[concat /bin/zcat $pathName |& cat] r

+		      }

+		      .n {

+			  open $pathName r

+		      }

+		      default {

+			  puts stderr "unknown compression method on $pathName, skipping"

+		      }

+		  }

+		 ]

+

    set matchInfo(fileName) [file tail $pathName]

    echo "    scanning $pathName"

@@ -497,7 +512,7 @@

     }

     set briefHelpFH [open "|sort > $helpDir/$briefFile" w]

-    foreach manFile [glob $sourceFiles] {

+    foreach manFile [glob -directory $sourceFiles -types f *] {

         set ext [file extension $manFile]

         if {$ext == ".tcl" || $ext == ".tlib"} {

             set status [catch {ProcessTclScript $manFile} msg]