30<2>valiant% diff /usr/local/lib/tcl tcl67/library
diff /usr/local/lib/tcl/init.tcl tcl67/library/init.tcl
17a18,40
> proc verboseLoad {} {
>     rename proc _proc
>     _proc proc {name args body} {
>         puts stderr "proc $name" nonewline
>         set entryCmd "puts stderr {TOP $name} "
>         set exitCmd "puts stderr {END $name} "
>         _proc $name $args "$entryCmd ; $body ; $exitCmd"
>         puts stderr "."
>     }
> }
> ## verboseLoad
> 
> ## set libraryPrefix [string trim [info library] {]}]
> ## set tclprocsLib [set libraryPrefix].tclprocs\]
> ## set tclutilsLib [set libraryPrefix].tclutils\]
> ## if {![info exists auto_path]} {
> ##     set auto_path  "$tclprocsLib $tclutilsLib [info library]"
> ## }
> ## unset tclprocsLib
> ## unset tclutilsLib
> ## unset libraryPrefix
> ## puts stderr ">>> auto_path is {$auto_path}\n"
> 
98c121,122
< 	uplevel #0 source $auto_index($cmd)
---
> ##        source $auto_index($cmd)
> 	uplevel #0 source "{$auto_index($cmd)}"
114a139
>     set filename tclindex
118c143
< 	    set f [open $dir/tclIndex]
---
> 	    set f [open $dir$filename]
129c154
< 		    set auto_index($name) $dir/[lindex $line 1]
---
> 		    set auto_index($name) $dir[lindex $line 1]
138c163,164
< 	uplevel #0 source $auto_index($cmd)
---
> ##        source $auto_index($cmd)
> 	uplevel #0 source "{$auto_index($cmd)}"
156,157c182,184
<     foreach dir [split $env(PATH) :] {
< 	if {[file executable $dir/$name] && ![file isdirectory $dir/$name]} {
---
>     foreach dir "[split $env(PATH) :] sys\$system:" {
>         set fname [set dir][set name].exe
> 	if {[file executable $fname] && ![file isdirectory $fname]} {
200a228
>         set fbasename [file rootname $file][file extension $file]
205c233
< 		    append index "[list $procName $file]\n"
---
> 		    append index "[list $procName $fbasename]\n"
Only in /usr/local/lib/tcl: tclIndex
Only in tcl67/library: tclindex
31<2>valiant% 