Index: init.tcl
===================================================================
RCS file: /cvsroot/tcl/library/init.tcl,v
retrieving revision 1.26
diff -c -r1.26 init.tcl
*** init.tcl    1999/02/11 03:04:46     1.26
--- init.tcl    1999/03/12 19:31:30
***************
*** 1505,1512 ****
            foreach file [glob -nocomplain [file join [lindex $auto_path $i] \
                    * pkgIndex.tcl]] {
                set dir [file dirname $file]
!               if {[catch {source $file} msg]} {
!                   tclLog "error reading package index file $file: $msg"
                }
            }
          }
--- 1505,1514 ----
            foreach file [glob -nocomplain [file join [lindex $auto_path $i] \
                    * pkgIndex.tcl]] {
                set dir [file dirname $file]
!               if {[file readable $file]} {
!                   if {[catch {source $file} msg]} {
!                       tclLog "error reading package index file $file: $msg"
!                   }
                }
            }
          }