*** init.tcl.orig       Thu Oct 22 16:43:39 1998
--- init.tcl    Thu Oct 22 16:51:45 1998
***************
*** 626,632 ****
          } else {
              set ver $version
          }
!         lappend dirs [file join $grandParentDir] $basename$ver library]
          lappend dirs [file join [file dirname $grandParentDir] $basename$ver library]
      }
      foreach i $dirs {
--- 626,632 ----
          } else {
              set ver $version
          }
!         lappend dirs [file join $grandParentDir $basename$ver library]
          lappend dirs [file join [file dirname $grandParentDir] $basename$ver library]
      }
      foreach i $dirs {