--- loncom/lonnet/perl/lonnet.pm	2010/07/24 17:42:51	1.1076
+++ loncom/lonnet/perl/lonnet.pm	2010/07/25 02:58:05	1.1077
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1076 2010/07/24 17:42:51 raeburn Exp $
+# $Id: lonnet.pm,v 1.1077 2010/07/25 02:58:05 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -817,7 +817,7 @@ sub has_user_session {
 sub choose_server {
     my ($udom) = @_;
     my %domconfhash = &Apache::loncommon::get_domainconf($udom);
-    my %servers = &servers($udom);
+    my %servers = &get_servers($udom);
     my $lowest_load = 30000;
     my ($login_host,$hostname);
     foreach my $lonhost (keys(%servers)) {