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