Index: generic/tclInitScript.h =================================================================== RCS file: /cvsroot/tcl/generic/tclInitScript.h,v retrieving revision 1.9 diff -r1.9 tclInitScript.h 33c33,37 < return\n\ --- > if {[string length $errors]} {\n\ > error \"Failed 'init.tcl' evaluation(s):\n\n$errors\"\n\ > } else {\n\ > return\n\ > }\n\ Index: library/auto.tcl =================================================================== RCS file: /cvsroot/tcl/library/auto.tcl,v retrieving revision 1.2 diff -r1.2 auto.tcl 109c109,113 < return --- > if {[string length $errors]} { > error "Failed '$initScript' evaluation(s):\n\n$errors" > } else { > return > }