Index: init.tcl =================================================================== RCS file: /cvsroot/tcl/library/init.tcl,v retrieving revision 1.1.2.7 diff -c -r1.1.2.7 init.tcl *** init.tcl 1999/03/13 23:49:48 1.1.2.7 --- init.tcl 1999/04/06 15:50:08 *************** *** 183,190 **** set ret [catch {auto_load $name [uplevel 1 {namespace current}]} msg] unset unknown_pending($name); if {$ret != 0} { ! return -code $ret -errorcode $errorCode \ ! "error while autoloading \"$name\": $msg" } if {![array size unknown_pending]} { unset unknown_pending --- 183,190 ---- set ret [catch {auto_load $name [uplevel 1 {namespace current}]} msg] unset unknown_pending($name); if {$ret != 0} { ! append errorInfo "\n (autoloading \"$name\")" ! return -code $ret -errorcode $errorCode -errorinfo $errorInfo $msg } if {![array size unknown_pending]} { unset unknown_pending