X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fserver%2Ftcl_server.c;h=8d2a0f71d79aeb7f22e9d866a73dd1faa84d7376;hb=ef1cfb23947bd32798077c6abb5c25a049460ae9;hp=2f4c1899ec37bf81b844a8f21f8d18c5c14b51f4;hpb=3c8ef2c41baea675526af28f01008fcb550f8748;p=fw%2Fopenocd

diff --git a/src/server/tcl_server.c b/src/server/tcl_server.c
index 2f4c1899e..8d2a0f71d 100644
--- a/src/server/tcl_server.c
+++ b/src/server/tcl_server.c
@@ -143,7 +143,7 @@ static int tcl_input(connection_t *connection)
 		}
 		else {
 			tclc->tc_line[tclc->tc_lineoffset-1] = '\0';
-			retval = Jim_Eval(interp, tclc->tc_line);
+			retval = Jim_Eval_Named(interp, tclc->tc_line, "remote:connection",1);
 			result = Jim_GetString(Jim_GetResult(interp), &reslen);
 			retval = tcl_output(connection, result, reslen);
 			if (retval != ERROR_OK)