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]