@@ -258,10 +258,12 @@ s = tcc_new(); if (s == NULL) { return(TCL_ERROR); } + + s->tcc_lib_path = Tcl_GetString(objv[1]); tcc_set_error_func(s, interp, (void *)&TccErrorFunc); ts = (void *) ckalloc(sizeof(*ts)); ts->s = s;