X-Git-Url: https://review.openocd.org/gitweb?p=openocd.git;a=blobdiff_plain;f=src%2Fserver%2Ftcl_server.c;h=94c3454ad0d366454571993afa900bff6cca8bc2;hp=30d55cbc348304e94ae03358f3af676d3d177153;hb=445a54a669da05511d45dfcebad5823c2db2f321;hpb=c3074f377c1da33ca8ba8493826e1b52351eebc6

diff --git a/src/server/tcl_server.c b/src/server/tcl_server.c
index 30d55cbc34..94c3454ad0 100644
--- a/src/server/tcl_server.c
+++ b/src/server/tcl_server.c
@@ -129,9 +129,8 @@ static int tcl_input(struct connection *connection)
 			tclc->tc_line[tclc->tc_lineoffset-1] = '\0';
 			LOG_DEBUG("Executing script:\n %s", tclc->tc_line);
 			retval = Jim_Eval_Named(interp, tclc->tc_line, "remote:connection", 1);
-			LOG_DEBUG("Result: %d\n %s", retval,
-				Jim_GetString(Jim_GetResult(interp), &reslen));
 			result = Jim_GetString(Jim_GetResult(interp), &reslen);
+			LOG_DEBUG("Result: %d\n %s", retval, result);
 			retval = tcl_output(connection, result, reslen);
 			if (retval != ERROR_OK)
 				return retval;