diff --git a/ChangeLog b/ChangeLog
index 9614b4ac3..ce438075a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -41,6 +41,8 @@ Version 0.3.8 (under dev!)
   (WeeChat protocol)
 * rmodifier: add option "release" in default rmodifier "nickserv" (used to hide
   passwords in command "/msg nickserv") (bug #35705)
+* tcl: fix pointer sent to function hook_signal_send when type of data is
+  a pointer
 
 Version 0.3.7 (2012-02-26)
 --------------------------
diff --git a/src/plugins/scripts/tcl/weechat-tcl-api.c b/src/plugins/scripts/tcl/weechat-tcl-api.c
index 03812d0d0..941cc9785 100644
--- a/src/plugins/scripts/tcl/weechat-tcl-api.c
+++ b/src/plugins/scripts/tcl/weechat-tcl-api.c
@@ -3305,7 +3305,7 @@ weechat_tcl_api_hook_signal_send (ClientData clientData, Tcl_Interp *interp,
     {
         weechat_hook_signal_send (signal,
                                   type_data,
-                                  Tcl_GetStringFromObj (objv[3], &i)); /* signal_data */
+                                  API_STR2PTR(Tcl_GetStringFromObj (objv[3], &i))); /* signal_data */
         API_RETURN_OK;
     }