--- a/libpurple/plugins/tcl/tcl_ref.c Sat Apr 21 16:35:27 2007 +0000 +++ b/libpurple/plugins/tcl/tcl_ref.c Sat Apr 21 17:11:35 2007 +0000 @@ -116,14 +116,14 @@ void *value; if (strlen(bytes) < 7 - || strncmp(bytes, "purple-", 5) + || strncmp(bytes, "purple-", 7) || (ptr = strchr(bytes, ':')) == NULL - || (ptr - bytes) == 5) + || (ptr - bytes) == 7) goto badobject; /* Bad Ethan */ *ptr = '\0'; - type = purple_stringref_new(bytes + 5); + type = purple_stringref_new(bytes + 7); *ptr = ':'; ptr++;