Updated to tcl 8.4.1

[pf3gnuchains/pf3gnuchains3x.git] / tcl / tools / man2html.tcl

diff --git a/tcl/tools/man2html.tcl b/tcl/tools/man2html.tcl
index cb60887..6f44aaa 100644 (file)
--- a/tcl/tools/man2html.tcl
+++ b/tcl/tools/man2html.tcl
@@ -75,7 +75,7 @@ proc footer {packages} {
 # dir -                        Name of the directory.
 
 proc doDir dir {
-    foreach f [lsort [glob $dir/*.\[13n\]]] {
+    foreach f [lsort [glob -directory $dir "*.\[13n\]"]] {
        do $f   ;# defined in man2html1.tcl & man2html2.tcl
     }
 }