@@ -67,7 +67,12 @@ func (p *Tcl) EvalFile(file string, args []string) {
6767 cfile := C.CString(file)
6868 defer C.free(unsafe.Pointer(cfile))
6969
70− C.Tcl_EvalFile(p.interp, cfile)
70+ status := C.Tcl_EvalFile(p.interp, cfile)
71+
72+ if status != C.TCL_OK {
73+ errstr := C.GoString(C.Tcl_GetStringResult(p.interp))
74+ fmt.Fprintf(os.Stderr, "error: %s\n", errstr)
75+ }
7176}
7277
7378func (p *Tcl) Eval(code string) {