--- a/libpurple/plugins/tcl/tcl_ref.c Thu Mar 23 21:01:15 2017 +0300 +++ b/libpurple/plugins/tcl/tcl_ref.c Fri Mar 24 02:23:46 2017 +0300 @@ -55,7 +55,7 @@ if (Tcl_ConvertToType(interp, obj, &purple_tcl_ref) != TCL_OK) return NULL; } - if (strcmp(purple_stringref_value(OBJ_REF_TYPE(obj)), + if (!purple_strequal(purple_stringref_value(OBJ_REF_TYPE(obj)), purple_stringref_value(type))) { if (interp) { Tcl_Obj *error = Tcl_NewStringObj("Bad Purple reference type: expected ", -1);