--- brltty-3.9/Bindings/Tcl/pkgutil.tcl85	2007-10-17 17:19:30.000000000 +0200

+++ brltty-3.9/Bindings/Tcl/pkgutil	2008-01-04 16:07:25.000000000 +0100

@@ -31,7 +31,7 @@

             }

             set directory [eval file join / [lrange $components $rootCount end]]

-            if {[lsearch -exact {lib lib64} [file tail $directory]] >= 0} {

+            if {[regexp /lib(64)?(/|$) $directory] >= 0} {

                global optionValues packageName packageVersion

                return [file join "$optionValues(root)$directory" "$packageName-$packageVersion"]

             }