--- 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"]
             }