--- a/libpurple/plugins/tcl/tcl_cmds.c Thu May 22 21:43:22 2014 +0200 +++ b/libpurple/plugins/tcl/tcl_cmds.c Thu May 22 22:09:55 2014 +0200 @@ -1411,7 +1411,7 @@ who = Tcl_GetString(objv[2]); text = Tcl_GetString(objv[3]); - purple_serv_send_im(gc, purple_message_new(who, text, 0)); + purple_serv_send_im(gc, purple_message_new(who, text, PURPLE_MESSAGE_SEND)); return TCL_OK; }