diff --git a/lib/WebGUI/Mailing.pm b/lib/WebGUI/Mailing.pm
index 47ed537..43d415a 100644
--- a/lib/WebGUI/Mailing.pm
+++ b/lib/WebGUI/Mailing.pm
@@ -115,7 +115,7 @@ sub www_sendTestEmails {
 
     tie my %options, 'Tie::IxHash', (
         map     { $_->getId => $_->username . "(" . $_->get('email') . ")" }
-        sort    { $a->username <=> $b->username }
+        sort    { $a->username cmp $b->username }
         grep    { defined $_ }
         map     { WebGUI::User->new( $session, $_ ) }
                 @{ $userIds }