Bug 227951

Description of problem:
The tcl_findLibrary procedure is used to locate a packages foo.tcl script by
looking in a few common locations.  Unfortunately, it does not look in the
sibling directory of Tcl's own script library.  This causes problems for Tk when
Tcl is built with a restricted auto_path (see bug #226893)

Version-Release number of selected component (if applicable):
tcl-8.5a5-6.fc7

How reproducible:
Always

Steps to Reproduce:
1.  Rebuild and install Tcl with the auto_path patch in bug #226893
2.  Install Tk
3.  Start a wish shell
  
Actual results:
wish does not initialize correctly and gives the following error:
"Application initialization failed: Can't find a usable tk.tcl in the following
directories: 
    /usr/share/tcl8.5/tk8.5 /usr/lib/tk8.5 /lib/tk8.5 /usr/library



This probably means that tk wasn't installed properly."

Note that it does _not_ look in /usr/share/tk8.5, where tk.tcl actually lives.

Expected results:
wish starts as expected

Additional info:

The attached patch adds an additional directory, $tcl_library/../foo$version to
the search path.

I'm also sending this patch to the upstream devs so that it can get included in
the core Tcl sources.