diff -r 2d8adb92f665 -r fe99fcea5c1c plugins/tcl/tcl_cmds.c
--- a/plugins/tcl/tcl_cmds.c	Sat Jul 31 20:48:03 2004 +0000
+++ b/plugins/tcl/tcl_cmds.c	Sat Jul 31 21:29:40 2004 +0000
@@ -275,7 +275,7 @@
 		if (node->type == GAIM_BLIST_CHAT_NODE)
 			Tcl_SetStringObj(result, ((GaimChat *)node)->alias, -1);
 		else if (node->type == GAIM_BLIST_BUDDY_NODE)
-			Tcl_SetStringObj(result, (char *)gaim_get_buddy_alias((GaimBuddy *)node), -1);
+			Tcl_SetStringObj(result, (char *)gaim_buddy_get_alias((GaimBuddy *)node), -1);
 		return TCL_OK;
 		break;
 	case CMD_BUDDY_HANDLE: