Renaming Joints Mel

[blurr]

Does anyone know of a Mel script that will rename objects that have the same name to different names? I know about the Multi Object renamer and it does not work on object of the same name.

Here is the basic function that does not work:

string $sel[] = ls -sl;
string $current;
for ($current in $sel)
{

	rename $current "NewName#";
}

This works on everything EXCEPT what I need it for which is Joints with the same name to a new name.

Thanks