OK,
Here is what I had to do to change this:

in the sub build_new section of Build.pm I found the following line:

my %names = $catlink->select('LinkID', 'Full_Name', { LinkID => [map $_->{ID}, @$results] })->fetchall_list;

I changed it to:

my %names = $catlink->select('LinkID', 'Name', { LinkID => [map $_->{ID}, @$results] })->fetchall_list;

in the sub build_cool section of Build.pm I found the following line:

my %names = $catlink->select(LinkID => Full_Name => { LinkID => [map $_->{ID}, @$results] })->fetchall_list;

I changed it to:

my %names = $catlink->select(LinkID => Name => { LinkID => [map $_->{ID}, @$results] })->fetchall_list;

I am aware that any updates could whipe out these changes, so I copied the file to a local drive so I can make the changes again if needed. I wish there were an easier way to do this, but I have to sort the categories on New and Cool by Name, not Full_Name.

George